try to fix the dups (and the dates on them)

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d169565aff0cada8fe0691d8abdc537d45d21518..a9df0e913214c19e07a1978a7121b7a25acb7f1e 100644 (file)
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -256,7 +256,7 @@ sub dup
 #      $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$d|$sfi|$k|$a";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }