use spot filters for rbn in no rbn filters exist

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 21cd9836861ccf0c775a4cc026b5e9026ae98498..0515a91c06f1c85c05c5ddc829adf1a3fab6d40d 100644 (file)
--- 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));