X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=fee2c15b0af48cc32acadc3aee05888f339882e5;hb=331ae9a34defd23c476ceaecdf29d9f49b60faed;hp=82563bba003126666ce16e9ab0e3beb9c39511b7;hpb=963f15d001aad3809087081ff5a0df550606dadc;p=spider.git

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;
 }