From: jj v. a. <we...@ma...> - 2009-02-04 15:31:07
|
Log Message: ----------- Fix the sorting of days and weeks for output. Modified Files: -------------- webwork2/bin: remove_stale_images Revision Data ------------- Index: remove_stale_images =================================================================== RCS file: /webwork/cvs/system/webwork2/bin/remove_stale_images,v retrieving revision 1.7 retrieving revision 1.8 diff -Lbin/remove_stale_images -Lbin/remove_stale_images -u -r1.7 -r1.8 --- bin/remove_stale_images +++ bin/remove_stale_images @@ -197,12 +197,12 @@ sub count_report { my $j; print "Days\n"; - for $j (sort keys(%days)) { + for $j (sort {$a <=> $b} keys(%days)) { print "$j $days{$j}\n"; } print "\nWeeks\n"; - for $j (sort keys(%week)) { + for $j (sort {$a <=> $b} keys(%week)) { print " $j $week{$j}\n"; } @@ -284,4 +284,4 @@ -1; \ No newline at end of file +1; |