From: minima Date: Tue, 11 Mar 2003 00:37:34 +0000 (+0000) Subject: sort the results by date X-Git-Tag: PRE-1-52~26 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7392e25c792e4d7754f955d1ae0e32f05b7e1359;p=spider.git sort the results by date --- diff --git a/cmd/show/qsl.pl b/cmd/show/qsl.pl index 082dc8ba..86905d51 100644 --- a/cmd/show/qsl.pl +++ b/cmd/show/qsl.pl @@ -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 = ""; }