X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=a9df0e913214c19e07a1978a7121b7a25acb7f1e;hb=7497cb27ff60760f9d0280549b26c215ebae19ff;hp=d169565aff0cada8fe0691d8abdc537d45d21518;hpb=e83b70ecab022dbbeac0b56f67ed2e4bed609e86;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d169565a..a9df0e91 100644
--- 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; 
 }