X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdxqsl.pl;h=c17da1d20a356ce35381039e764a54d09e125e88;hb=8ce11d49e52f2ae6ed3c0ddf2a54b2941544acc3;hp=2017a6ae37c6db0ff179d0ec110ca29193549e70;hpb=51de27cf70637ec8687f43d75d4d9ef3f67e1fa3;p=spider.git diff --git a/cmd/show/dxqsl.pl b/cmd/show/dxqsl.pl index 2017a6ae..c17da1d2 100644 --- a/cmd/show/dxqsl.pl +++ b/cmd/show/dxqsl.pl @@ -14,17 +14,17 @@ my @out; return (1, $self->msg('db3', 'QSL')) unless $QSL::dbm; -push @out, $self->msg('qsl1'); foreach my $call (@call) { my $q = QSL::get($call); if ($q) { my $c = $call; + push @out, $self->msg('qsl1') unless @out; for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) { push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3]; $c = ""; } } else { - push @out, $self->msg('db2', $call, 'QSL'); + push @out, $self->msg('db2', $call, 'DxQSL DB'); } }