From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 13 Mar 2025 16:28:31 +0000 (+0000)
Subject: fix spotdup comments, qrgcall
X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6df50ea126010c4929473813874fa66286aa55d;p=spider.git

fix spotdup comments, qrgcall
---

diff --git a/perl/Spot.pm b/perl/Spot.pm
index e49c8661..b13cb72b 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -264,7 +264,7 @@ sub add_local
 {
 	my $buf = join('^', @_);
 
-	dup_new(@_);
+	dup_new(@_[0..4,7]);
 
 	$fp->writeunix($_[2], $buf);
 	if ($spotcachedays > 0) {
@@ -598,7 +598,7 @@ sub dup_add
 	}
 
 	if ($dupeqrgcall) {
-	    $ldupkey = "X$nd|$call";
+	    $ldupkey = "X$qrg|$call";
 		$t = DXDupe::find($ldupkey);
 		$storet = !$t && !$just_find ? ' STORE=>'.htime($main::systime+$dupeqrgcall) :'';
 		dbg("Spot::add_dup: $check (QRG-CALL)  $ldupkey $storet" . ($t?(' DUPE=>'.htime($t)) :'')) if isdbg('spotdup');