sort the results by date

diff --git a/cmd/show/qsl.pl b/cmd/show/qsl.pl
index 082dc8baacf293a6468ce951fcfbfa3b055c0656..86905d512f08bc79940af70af1f94ddeb516cb4b 100644 (file)
--- 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 = "";
                }