X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FVE7CC.pm;h=729b91c07f43359a6856f9b831ff4857cf6f8e8f;hb=17b1614af3840c2c74bee181290eb094f8ed4a00;hp=81a11144b8f3ed4b1fbd0e538c77da67d9207eaa;hpb=811077a3d45e4f89012a9169061745b0b42fe97b;p=spider.git

diff --git a/perl/VE7CC.pm b/perl/VE7CC.pm
index 81a11144..729b91c0 100644
--- a/perl/VE7CC.pm
+++ b/perl/VE7CC.pm
@@ -47,8 +47,10 @@ sub dx_spot
 		my $loc = $ref->qra || '';
 		$loc_spotter = substr($loc, 0, 4) if $loc;
 	}
+	my $text = $_[4];
+	$text =~ s/\^/~/g;
 	
-	return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_, $spotted_cc, $spotter_cc, $loc_spotted, $loc_spotter);
+	return sprintf("CC11^%0.1f^%s^", $freq, $spotted) . join('^', cldate($t), ztime($t), @_[0..3], $text, @_[5..10], $spotted_cc, $spotter_cc, $loc_spotted, $loc_spotter);
 }
 
 1;