From: minima <minima>
Date: Sun, 22 Jan 2006 21:15:07 +0000 (+0000)
Subject: fix LoTW spot prefixes in comment text
X-Git-Tag: 1.54~137
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=519f5b39d7b1a035aff12a7ceda4f135b2db1d93

fix LoTW spot prefixes in comment text
---

diff --git a/Changes b/Changes
index e2c01571..37e64c16 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+22Jan06=======================================================================
+1. Remove +<prefix> from the fronts of comments to fix LoTW dupes.
 18Jan06=======================================================================
 1. Fix spurious announce from previous year appearing in sh/ann.
 15Jan06=======================================================================
diff --git a/perl/Spot.pm b/perl/Spot.pm
index 5ea169f2..4d87be37 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -407,6 +407,7 @@ sub dup
 		}
 	}
 	my $otext = $text;
+	$text =~ s/^\+\w+\s*//;			# remove leading LoTW callsign
 	$text = pack("C*", map {$_ & 127} unpack("C*", $text));
 	$text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24;
 	$text =~ s/[^\w]//g;