X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fhftable.pl;h=40e54aa9eb05261f50978e66313159af60e24bf3;hb=02f97e2b119bcd216e4ce68850d48d21029fa2f5;hp=71d186337da54448fa0ee181c5614b94beb2b69e;hpb=5bc87856bb191e42d91628a5a4d9579a242b9541;p=spider.git diff --git a/cmd/show/hftable.pl b/cmd/show/hftable.pl index 71d18633..40e54aa9 100644 --- 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