From 1ee64082ae257818e71f8ec1a471dbac31bd746a Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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