]> dxspider.org Git - spider.git/commitdiff
change short dupe testing
authorDirk Koopman <djk@tobit.co.uk>
Thu, 13 Mar 2025 14:36:13 +0000 (14:36 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Thu, 13 Mar 2025 14:36:13 +0000 (14:36 +0000)
perl/Spot.pm

index b3a29edadf0e475700fbcffad805b9e851b01e1c..e2bd8f3d716a75213c6a16ec36f9c4c3206c1acf 100644 (file)
@@ -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