lower 60m limit

diff --git a/Changes b/Changes
index 7dfef64a1db7bdeba1671a9efb591d2bf4d71124..2bb8b5278b43b4e757dfc16f6cffb08a3d3ac533 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,8 @@
 DXUser::get*. This will break any third party addons or commands use these
 commands.
 2. Change version to 1.55
+3. Drop the lower limit of 60m to 5100 after Dave G7RAU pointed out usage.
+(see http://www.bandplans.com/index.php?band=60)
 22Apr08=======================================================================
 1. Added two Xmas Is calls.
 15Apr08=======================================================================

diff --git a/data/bands.pl b/data/bands.pl
index 534f4ec246efa544e1faa511084feab44c49eb83..dad639e2149f983bf4a1ade8fb651490644a9b37 100644 (file)
--- a/data/bands.pl
+++ b/data/bands.pl
@@ -36,7 +36,7 @@
                                                        ssb => [ 3601, 4000 ]  
                                                  }, 'Bands'),
 
-                 '60m' => bless( { band => [ 5258, 5410],
+                 '60m' => bless( { band => [ 5100, 5410],
                                                        ssb => [5300, 5410],
                                }, 'Bands' ),
 

diff --git a/html/program.html b/html/program.html
index f810d2ec2677e1b8edebd57b2aa31e6830f6c7eb..9b6262ec28dcc9575fa5c4f9c7d4d19f170c215e 100644 (file)
--- a/html/program.html
+++ b/html/program.html
@@ -232,7 +232,7 @@ return (1, $self->msg('e5')) if $self->priv < 9;
   
 foreach $call (@args) {
     $call = uc $call;
-    if ($ref = DXUser->get_current($call)) {
+    if ($ref = DXUser::get_current($call)) {
         $ref->passwd($pass);
            $ref->put();
                push @out, $self->msg("password", $call);
@@ -303,11 +303,11 @@ return (1, @out)
 
                <p><li>It is important that you remember when you have tie
                hashes using MLDBM et al. If you do a
-               <tt>DXUser->get($call)</tt> you will get a different (older)
+               <tt>DXUser::get($call)</tt> you will get a different (older)
                thing than the one in <tt>$self->user</tt>. This is almost
                certainly NOT what you want if want to modify a user that is
                currently connected. Either use <tt>$self->user</tt> or, if
-               you want another user, use <tt>DXUser->get_current($call)</tt>
+               you want another user, use <tt>DXUser::get_current($call)</tt>
 
                <p><li>If you want to debug something, start the cluster.pl up thus:-
                <pre>

diff --git a/perl/Version.pm b/perl/Version.pm
index e7668d528a179d7548c4348c0fd134bccbd58c20..9e7e4a4153b49769dfa02dd5ed1fe1cbf272c143 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '2';
+$build = '3';
 
 1;