From: minima <minima>
Date: Fri, 7 Mar 2003 23:03:33 +0000 (+0000)
Subject: more mods
X-Git-Tag: PRE-1-52~38
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=a7d7ca1d8383bea004544d002748db81d867ea11

more mods
---

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);
 }