Mercurial > hg > chronicle
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;