- $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 $t = 0;
+ my $ldupkey;
+
+ # new feature: don't include the origin node in Spot dupes
+ # default = true
+ unless ($no_node_in_dupe) {
+ $ldupkey = $oldstyle ? "X|$call|$by|$node|$freq|$d|$text" : "X|$call|$by|$node|$qrg|$nd|$text";
+
+ $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;
+ }
+