From: minima <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.net/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 = "";
 		}