- for (-60, -120, -180, -240, 0, 60, 120, 180, 240, 300) {
- my $dt = $d - $_;
- my $ldupkey = "X$freq|$call|$dt|\L$text";
- my $sdupkey = "X$freq|$call|$dt|$by";
- return 1 if DXDupe::find($ldupkey) || DXDupe::find($sdupkey);
- }
- my $ldupkey = "X$freq|$call|$d|\L$text";
- $sdupkey = "X$freq|$call|$d|$by";
+ my $ldupkey = "X$freq|$call|$by" . uc $text;
+ my $t = DXDupe::find($ldupkey);
+ return 1 if $t && $t - $main::systime > 0;