X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=2c82b1371fd31c4367e05521c1eab1fb4876777a;hb=refs%2Fheads%2Fnewusers;hp=d680251b2fa27afcd31853d0cf0ad72593bb3115;hpb=fda536aef281e0f6fc68a02c537d18650bd5505f;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index d680251b..2c82b137 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -679,6 +679,11 @@ sub broadcast_list
 			($filter) = $dxchan->{spotsfilter}->it(@{$fref}) if ref $fref;
 			next unless $filter;
 		}
+		if ($sort eq 'rbn') {
+		    next unless $dxchan->{dx}; # this is deliberate!
+			($filter) = $dxchan->{spotsfilter}->it(@{$fref}) if ref $fref;
+			next unless $filter;
+		}
 		next if $sort eq 'ann' && !$dxchan->{ann} && $s !~ /^To\s+LOCAL\s+de\s+(?:$main::myalias|$main::mycall)/i;
 		next if $sort eq 'wwv' && !$dxchan->{wwv};
 		next if $sort eq 'wcy' && !$dxchan->{wcy};