From aafd54016bd01fa5b3dc717dbb9cb267f5376dc4 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sat, 10 Jun 2000 14:27:32 +0000
Subject: [PATCH] store the correct duptext for PC11

---
 perl/DXProt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ecb6cfc6..aacd5660 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -240,7 +240,7 @@ sub normal
 			
 			# do some de-duping
 			my $freq = $field[1] - 0;
-			my $dupkey = "$freq$field[2]$d$text$spotter";
+			my $dupkey = "$freq$field[2]$d$duptext$spotter";
 			if ($spotdup{$dupkey}) {
 				dbg('chan', "Duplicate Spot ignored\n");
 				return;
-- 
2.34.1