add by_dxcc to sh/dx

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 8d8ba775189be6b650a1e0dce029b211d6ebe5a5..5fbbd71983740c23f68f20c696bb2b55bbd20815 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -2111,6 +2111,9 @@ any order to the basic SHOW/DX command, they are:-
                   
                    You can also use this with the 'by' keyword so 
                    eg by W dxcc  
+
+ by_dxcc         - alternatively you can simply say 'by_dxcc W' instead
+                   instead of 'by W dxcc'.
  
  real or rt      - Format the output the same as for real time spots. The
                    formats are deliberately different (so you can tell

diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index f2629bfff0e225ef7249e358a17b166f46d38708..f359aec0cd0cef3ff60a3343fd4f99e830ad4936 100644 (file)
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -81,10 +81,12 @@ while ($f = shift @list) {          # next field
                $info = shift @list;
                next;
        }
-       if ((lc $f eq 'spotter' || lc $f eq 'by') && $list[0]) {
+       if ((lc $f eq 'spotter' || lc $f eq 'by' || lc $f eq 'by_dxcc') && $list[0]) {
                #    print "got spotter\n";
                $spotter = uc shift @list;
-               if ($list[0] && lc $list[0] eq 'dxcc') {
+               if ($f eq 'by_dxcc') {
+                       $fromdxcc = 1;
+               } elsif ($list[0] && lc $list[0] eq 'dxcc') {
                        $fromdxcc = 1;
                        shift @list;
                }