From 1ee64082ae257818e71f8ec1a471dbac31bd746a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 23 Jun 2020 23:32:45 +0100
Subject: [PATCH] use spot filters for rbn in no rbn filters exist

---
 perl/DXCommandmode.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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