From 5378e6f269bce40d878b06e76dcf58a62858dd7b Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 5 Jul 2020 01:52:19 +0100
Subject: [PATCH] fix show/dxcc

---
 Changes        | 2 ++
 cmd/show/dx.pl | 2 +-
 perl/Spot.pm   | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 39cedc25..5aac43e9 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Jul20=======================================================================
+1. Fix show/dxcc.
 17Jun20=======================================================================
 1. Change the Spot file reading mechanism back to the default of using 'tac'.
 08Jun20=======================================================================
diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index baca1f68..5ebc1033 100644
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -120,7 +120,7 @@ sub handle
 			dbg("sh/dx operator $f") if isdbg('sh/dx');
 			next;
 		}
-		if (grep {lc $f eq $_} qw(on freq call info spotter by call_dxcc by_dxcc bydxcc origin call_itu itu call_zone zone  byitu by_itu by_zone byzone call_state state bystate by_state ip) ) {
+		if (grep {lc $f eq $_} qw(on freq call info spotter by dxcc call_dxcc by_dxcc bydxcc origin call_itu itu call_zone zone  byitu by_itu by_zone byzone call_state state bystate by_state ip) ) {
 			push @flist, $f;
 			push @flist, shift @list if @list;
 			dbg("sh/dx function $flist[-2] $flist[-1]") if isdbg('sh/dx');
diff --git a/perl/Spot.pm b/perl/Spot.pm
index be175ff0..3bfee12a 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -41,6 +41,7 @@ $filterdef = bless ([
 					 ['info', 't', 3],
 					 ['spotter', 'c', 4],
 					 ['by', 'c', 4],
+					 ['dxcc', 'nc', 5],
 					 ['call_dxcc', 'nc', 5],
 					 ['by_dxcc', 'nc', 6],
 					 ['origin', 'c', 7, 9],
-- 
2.34.1