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;
|