From 6afb4b66b19876b1e653750c98afa4c46de9af72 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 25 Feb 2005 17:38:27 +0000
Subject: [PATCH] fix typo

---
 perl/Spot.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 82563bba..fee2c15b 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -340,11 +340,11 @@ sub dup
 	my $ldupkey = "X$freq|$call|$by" . uc $text;
 	my $t = DXDupe::find($ldupkey);
 	return 1 if $t && $t - $main::systime > 0;
+	DXDupe::add($ldupkey, $main::systime+$dupage);
 #	my $sdupkey = "X$freq|$call|$by";
 #	$t = DXDupe::find($sdupkey);
 #	return 1 if $t && $t - $main::systime > 0;	
-	DXDupe::add($ldupkey, $main::systime+$dupage);
-	DXDupe::add($sdupkey, $main::systime+$dupage);
+#	DXDupe::add($sdupkey, $main::systime+$dupage);
 	return 0;
 }
 
-- 
2.34.1