X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0225f2f0c314a54b3d298fc9899a8a20e329d256;hb=refs%2Ftags%2FR_1_21;hp=10ce5fa193043475802ed715c051e8d5c1b1fceb;hpb=fb554d0fdb1d30120dbfff15514c51f683dc17a8;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;