sort the results by date

This commit is contained in:
minima 2003-03-11 00:37:34 +00:00
parent e3beb3c736
commit 7392e25c79

View File

@ -19,7 +19,7 @@ foreach my $call (@call) {
my $q = QSL::get($call);
if ($q) {
my $c = $call;
for (@{$q->[1]}) {
for (sort {$b->[2] <=> $a->[2]} @{$q->[1]}) {
push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
$c = "";
}