changeset 78:cbac8af73d88

Updated sort ordering.
author Steve Kemp <steve@steve.org.uk>
date Mon, 10 Dec 2007 23:23:08 +0000
parents 00ed5b99ccb0
children 9728676c3a85
files bin/chronicle
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Mon Dec 10 14:01:23 2007 +0000
+++ b/bin/chronicle	Mon Dec 10 23:23:08 2007 +0000
@@ -815,7 +815,11 @@
     push( @$results, { year => $year,
                        months => $months } );
 
-    return $results;
+    #
+    #  Make sure this is sorted by reverse chronilogical order.
+    #
+    my @sorted = sort { $b->{'year'} <=> $a->{'year'} } @$results;
+    return \@sorted;
 }
 
 
@@ -1490,6 +1494,9 @@
         $file = $1;
     }
     $file =~ s/ /_/g;
+    $file =~ s/'/_/g;
+    $file =~ s/!/_/g;
+    $file =~ s/\?/_/g;
     $file =~ s/\///g;
     $file =~ s/\\//g;