more mods

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 713abe7ff69a30128fcbd3257c7720765a92d83c..66634f255c2f17f56e5e2763e63d16042fa3166b 100755 (executable)
--- 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);
 }