change short dupe testing

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b3a29edadf0e475700fbcffad805b9e851b01e1c..e2bd8f3d716a75213c6a16ec36f9c4c3206c1acf 100644 (file)
--- 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