From ad8639433db3d682769b49665c0eefaa32f80c20 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 6 May 2008 17:09:58 +0100
Subject: [PATCH] lower 60m limit

---
 Changes           | 2 ++
 data/bands.pl     | 2 +-
 html/program.html | 6 +++---
 perl/Version.pm   | 2 +-
 4 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index 7dfef64a..2bb8b527 100644
--- 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 534f4ec2..dad639e2 100644
--- 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 f810d2ec..9b6262ec 100644
--- a/html/program.html
+++ b/html/program.html
@@ -232,7 +232,7 @@ return (1, $self->msg('e5')) if $self->priv &lt; 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 e7668d52..9e7e4a41 100644
--- 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;
-- 
2.34.1