X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=b1985f0541509f8dd273d8be66243127e9e58a6b;hb=be587fd8dade028c10545ffff4be13b0a18f3f91;hp=e74f50218f16f6b332a575d4d2eeba673611c67d;hpb=af429076bc146a50e631f28a50cc8df100cf2dbb;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index e74f5021..b1985f05 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -49,15 +49,15 @@ $param = "$dirprefix/param";
 
 $filterdef = bless ([
 			  # tag, sort, field, priv, special parser 
-			  ['by', 'c', 7],
-			  ['origin', 'c', 8],
-			  ['channel', 'c', 9],
-			  ['by_dxcc', 'nc', 10],
-			  ['by_itu', 'ni', 11],
-			  ['by_zone', 'nz', 12],
-			  ['origin_dxcc', 'nc', 13],
-			  ['origin_itu', 'ni', 14],
-			  ['origin_zone', 'nz', 15],
+			  ['by', 'c', 0],
+			  ['origin', 'c', 1],
+			  ['channel', 'c', 2],
+			  ['by_dxcc', 'nc', 3],
+			  ['by_itu', 'ni', 4],
+			  ['by_zone', 'nz', 5],
+			  ['origin_dxcc', 'nc', 6],
+			  ['origin_itu', 'ni', 7],
+			  ['origin_zone', 'nz', 8],
 			 ], 'Filter::Cmd');
 
 sub init