try to fix the dups (and the dates on them)

diff --git a/Changes b/Changes
index 52381943a582a67264ee4c16a5f92bff200c191e..158f9b680fb1787477a4338d5067449b63ac3087 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. made sure that 'en' is the default language on new users.
 2. issue error message if shutdown is attempted by a low privileged user.
 3. Make sure a privilege is defined for all users (even if it is 0).
+4. Try to fix some more dups (and the time on time).
 26Jul00=======================================================================
 1. added wantgrid (to control display of grid square info on DX Broadcasts)
 2. added lastoper for controlling periodic demands for user info from other

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index b082c38531bd0f77707129db1ac37b2250e62a86..faa644a302c99c3c204df7d2f834ca2a61ee74ef 100644 (file)
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -30,7 +30,7 @@ sub dup
        $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$call|$to|$text";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }
 

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d169565aff0cada8fe0691d8abdc537d45d21518..a9df0e913214c19e07a1978a7121b7a25acb7f1e 100644 (file)
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -256,7 +256,7 @@ sub dup
 #      $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$d|$sfi|$k|$a";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }
 

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 3f4313ef8268dd75f4fffae2d7b369711180929a..b29592a3a756eb3c8d3c246e78e8ac3827445125 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -217,7 +217,7 @@ sub dup
        unpad($text);
        my $dupkey = "$freq|$call|$d|$text";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }
 

diff --git a/perl/WCY.pm b/perl/WCY.pm
index ef1a9b21f523ed8a357ca930dabf6f8f4c68985a..3645e25cb4dbd933525f03c49a1b39dca2480b1c 100644 (file)
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -231,7 +231,7 @@ sub dup
 #      $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$d|$sfi|$k|$a|$r";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }