remove $Id$ strings from everywhere that I can find

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

diff --git a/cmd/show/hftable.pl b/cmd/show/hftable.pl
index 71d186337da54448fa0ee181c5614b94beb2b69e..40e54aa9eb05261f50978e66313159af60e24bf3 100644 (file)
--- a/cmd/show/hftable.pl
+++ b/cmd/show/hftable.pl
@@ -3,7 +3,7 @@
 #
 # Copyright (c) 2001 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 # Modified on 2002/10/27 by K1XX for his own use
 # Valid inputs (and then tarted up by G1TLH to include in the
@@ -87,13 +87,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