fixed silly typo

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 10ce5fa193043475802ed715c051e8d5c1b1fceb..0cc714135317ff1119a0dc786a326b2b81c8c23f 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -389,8 +389,9 @@ sub normal
                                dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
                                return;
                        }
-                       
                        $wwvdup{$dupkey} = $d;
+                       $field[6] =~ s/-\d+$//o;            # remove spotter's ssid
+               
                        my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
 
                        my $r;