From 72a13d681ce2472bd4e036676ed89c0c91342eaf Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 22 Jan 2006 21:15:07 +0000
Subject: [PATCH] fix LoTW spot prefixes in comment text

---
 Changes      | 2 ++
 perl/Spot.pm | 1 +
 2 files changed, 3 insertions(+)

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;
-- 
2.43.0