X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0cc714135317ff1119a0dc786a326b2b81c8c23f;hb=49e5783b757e86e6a7949ad00572c8fe6e58f293;hp=10ce5fa193043475802ed715c051e8d5c1b1fceb;hpb=fb554d0fdb1d30120dbfff15514c51f683dc17a8;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 10ce5fa1..0cc71413 100644
--- 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;