From 9c2a187b4d9e7b03a963cabc4c7ecf5df5bf1ca5 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 e1ad3258..8c663a2a 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Jul20=======================================================================
+1. Fix show/dxcc.
 04Jul20=======================================================================
 1. Give console.pl (or dx) a good going over with a bog brush to *finally*
    (cough) make it work correctly with a full 80 column window (and not just
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.43.0