store the correct duptext for PC11

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ecb6cfc638edad38d15fc4b509fb838cc748b595..aacd56603904bcbb5ff1acb5ebe0b610b985cd37 100644 (file)
--- 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;