X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_localqsl.pl;h=66634f255c2f17f56e5e2763e63d16042fa3166b;hb=a7d7ca1d8383bea004544d002748db81d867ea11;hp=713abe7ff69a30128fcbd3257c7720765a92d83c;hpb=144ae11b65a1425f6557d4670fcd303dabd180b4;p=spider.git

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 713abe7f..66634f25 100755
--- a/perl/create_localqsl.pl
+++ b/perl/create_localqsl.pl
@@ -112,7 +112,8 @@ sub update
 	if (@in && $in[0]->[0] < $t) {
 		@in = grep {$_->[1] ne $by} @in;
 	}
-	unshift @in, [$t, $by, $comment] if grep is_callsign($1), split(/\s+/, $comment);
+	$comment =~ s/://g;
+	unshift @in, [$t, $by, $comment] if grep is_callsign($_), split(/\s+/, $comment);
 	pop @in, if @in > 10;
 	return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
 }