From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 23 Jun 2020 22:32:45 +0000 (+0100)
Subject: use spot filters for rbn in no rbn filters exist
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ee64082ae257818e71f8ec1a471dbac31bd746a;p=spider.git

use spot filters for rbn in no rbn filters exist
---

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));