# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1197328988 0
# Node ID cbac8af73d883611f6b1c9efd68983a72f30403d
# Parent  00ed5b99ccb070b5ff7d2c8f2ee8406a6fe3bf10
  Updated sort ordering.

diff -r 00ed5b99ccb0 -r cbac8af73d88 bin/chronicle
--- 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;