From cc59bad0fce20a5cfdbbe379a68072a3abbb2368 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 27 Jul 2000 14:19:34 +0000
Subject: [PATCH] try to fix the dups (and the dates on them)

---
 Changes         | 1 +
 perl/AnnTalk.pm | 2 +-
 perl/Geomag.pm  | 2 +-
 perl/Spot.pm    | 2 +-
 perl/WCY.pm     | 2 +-
 5 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 52381943..158f9b68 100644
--- 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 b082c385..faa644a3 100644
--- 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 d169565a..a9df0e91 100644
--- 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 3f4313ef..b29592a3 100644
--- 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 ef1a9b21..3645e25c 100644
--- 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; 
 }
 
-- 
2.43.0