X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=022c4519e6c7928f72f1ff616d632a16288b37d6;hb=7bf828b924d7d1ddc7c81e65d816bdc36f55a92f;hp=b1985f0541509f8dd273d8be66243127e9e58a6b;hpb=e11cbc59392fe1d2c9f2212ce1b4f461932dfe87;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index b1985f05..022c4519 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -268,12 +268,12 @@ sub readfile
 # enter the spot for dup checking and return true if it is already a dup
 sub dup
 {
-	my ($d, $sfi, $k, $a, $text) = @_; 
+	my ($d, $sfi, $k, $a, $text, $call) = @_; 
 
 	# dump if too old
 	return 2 if $d < $main::systime - $dupage;
  
-	my $dupkey = "W$d|$sfi|$k|$a";
+	my $dupkey = "W$d|$sfi|$k|$a|$call";
 	return DXDupe::check($dupkey, $main::systime+$dupage);
 }