From 6afb4b66b19876b1e653750c98afa4c46de9af72 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 25 Feb 2005 17:38:27 +0000 Subject: [PATCH] fix typo --- perl/Spot.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Spot.pm b/perl/Spot.pm index 82563bba..fee2c15b 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -340,11 +340,11 @@ sub dup my $ldupkey = "X$freq|$call|$by" . uc $text; my $t = DXDupe::find($ldupkey); return 1 if $t && $t - $main::systime > 0; + DXDupe::add($ldupkey, $main::systime+$dupage); # my $sdupkey = "X$freq|$call|$by"; # $t = DXDupe::find($sdupkey); # return 1 if $t && $t - $main::systime > 0; - DXDupe::add($ldupkey, $main::systime+$dupage); - DXDupe::add($sdupkey, $main::systime+$dupage); +# DXDupe::add($sdupkey, $main::systime+$dupage); return 0; } -- 2.43.0