1. clear/* node_default and user_default now work.

[spider.git] / perl / AnnTalk.pm

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 982e9c49afc9eb99b679ac180ecbdab8a48af0a4..b48dc7e0ca56f58a1bc8ed5693541cf89d6bbc93 100644 (file)
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -27,13 +27,13 @@ $filterdef = bless ([
                          ['group', 't', 3],
                          ['origin', 'c', 4],
                          ['wx', 't', 5],
-                         ['channel', 'n', 6],
-                         ['by_dxcc', 'n', 7],
-                         ['by_itu', 'n', 8],
-                         ['by_zone', 'n', 9],
-                         ['origin_dxcc', 'n', 10],
-                         ['origin_itu', 'n', 11],
-                         ['origin_itu', 'n', 12],
+                         ['channel', 'c', 6],
+                         ['by_dxcc', 'nc', 7],
+                         ['by_itu', 'ni', 8],
+                         ['by_zone', 'nz', 9],
+                         ['origin_dxcc', 'nc', 10],
+                         ['origin_itu', 'ni', 11],
+                         ['origin_zone', 'nz', 12],
                         ], 'Filter::Cmd');
 
 use vars qw($VERSION $BRANCH);