- $text = substr($text, 0, $duplth) if length $text > $duplth;
- my $ldupkey = "X$freq|$call|$by|$text";
- my $t = DXDupe::find($ldupkey);
- return 1 if $t && $t - $main::systime > 0;
- DXDupe::add($ldupkey, $main::systime+$dupage);
+ $text = substr($text, 0, $duplth) if length $text > $duplth;
+
+ $l = length $text;
+ $dtext .= qq{->final:'$text'($l)} if isdbg('spottext');
+
+ my $ldupkey = $oldstyle ? "X|$call|$by|$node|$freq|$d|$text" : "X|$call|$by|$node|$qrg|$nd|$text";
+
+ my $t = 0;
+ $t = DXDupe::find($ldupkey);
+ dbg("Spot::dup ldupkey $ldupkey t '$t'") if isdbg('spotdup');
+ $dtext .= ' DUPE' if $t;
+ dbg("text transforms: $dtext") if length $text && isdbg('spottext');
+ return 1 if $t > 0;
+
+ DXDupe::add($ldupkey, $main::systime+$dupage) unless $just_find;
+