X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0225f2f0c314a54b3d298fc9899a8a20e329d256;hb=a76fe13d7a1e7e9003b11d5f5069903b81e2dc15;hp=10ce5fa193043475802ed715c051e8d5c1b1fceb;hpb=fa18779239db0812846a1bb383359d7eab272697;p=spider.git

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