remove $Id$ strings from everywhere that I can find

[spider.git] / cmd / show / vhftable.pl

diff --git a/cmd/show/vhftable.pl b/cmd/show/vhftable.pl
index 421443a6fbfb343509ef80deff2e709797e4d087..d13202901ae4ffa0371053ce3e18037bb1e19f92 100644 (file)
--- a/cmd/show/vhftable.pl
+++ b/cmd/show/vhftable.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 2001 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -59,13 +59,8 @@ return (1, @out) if @out;
 
 # default prefixes
 unless (@pref) {                                       # no prefix or callsign, use default prefix
-       if ($self->dxcc >= 61 && $self->dxcc < 67) {
-               push @dxcc, [$_, 2] for (61..67);
-               push @pref, "GB";
-       } else {
-               push @dxcc, [$self->dxcc, 2];
-               push @pref, $self->call;
-       }
+       push @dxcc, [$_, 2] for @main::my_cc;
+       push @pref, $main::mycall;
 }
 
 # default date