X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fqsl.pl;h=86905d512f08bc79940af70af1f94ddeb516cb4b;hb=7392e25c792e4d7754f955d1ae0e32f05b7e1359;hp=082dc8baacf293a6468ce951fcfbfa3b055c0656;hpb=e3beb3c736ca8e9ac9665d5c55f5d0f3cdb3f783;p=spider.git

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 = "";
 		}