#
# 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
# 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