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); my $q = QSL::get($call);
if ($q) { if ($q) {
my $c = $call; 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]; push @out, sprintf "%-14s %-10s %4d %s %s", $c, $_->[0], $_->[1], cldatetime($_->[2]), $_->[3];
$c = ""; $c = "";
} }