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