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).
 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
 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};
        $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; 
 }
 
        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};
 #      $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; 
 }
 
        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};
        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; 
 }
 
        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};
 #      $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; 
 }
 
        return 0; 
 }