X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=0515a91c06f1c85c05c5ddc829adf1a3fab6d40d;hb=1ee64082ae257818e71f8ec1a471dbac31bd746a;hp=21cd9836861ccf0c775a4cc026b5e9026ae98498;hpb=ed8410c2bbe30339d13fdb8f602fd30918469e47;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 21cd9836..0515a91c 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -179,8 +179,11 @@ sub start
 			|| Filter::read_in('ann', 'user_default', 0) ;
 	$self->{rbnfilter} = Filter::read_in('rbn', $call, 0) 
 		|| Filter::read_in('rbn', $nossid, 0)
-			|| Filter::read_in('rbn', 'user_default', 0);
-
+		|| Filter::read_in('spots', $call, 0) 
+		|| Filter::read_in('spots', $nossid, 0)
+		|| Filter::read_in('rbn', 'user_default', 0)
+		|| Filter::read_in('spots', 'user_default', 0);
+	
 	# clean up qra locators
 	my $qra = $user->qra;
 	$qra = undef if ($qra && !DXBearing::is_qra($qra));