From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 13 Mar 2025 14:36:13 +0000 (+0000)
Subject: change short dupe testing
X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=885d8c3081bdd2addfd4b446e4bda1dd2390b229;p=spider.git

change short dupe testing
---

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b3a29eda..e2bd8f3d 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -580,7 +580,16 @@ sub dup_add
 	}
 	
 	if ($dupebycall) {
-	    $ldupkey = "X$by|$call";
+#	    $ldupkey = "X$by|$call";
+#		$t = DXDupe::find($ldupkey);
+#		dbg("Spot::add_dup by call $ldupkey" . ($t?(' DUPE=>'.htime($t)) :' NEW')) if isdbg('spotdup');
+		# see above 
+#		if ($t > 0) {
+#			DXDupe::add($ldupkey, $main::systime+$dupage) unless $just_find;
+#			return 1;	
+#		}
+		
+	    $ldupkey = "X$nd|$call";
 		$t = DXDupe::find($ldupkey);
 		dbg("Spot::add_dup by call $ldupkey" . ($t?(' DUPE=>'.htime($t)) :' NEW')) if isdbg('spotdup');
 		# see above