Changeset 2658
- Timestamp:
- 09/30/08 10:51:14 (3 months ago)
- Files:
-
- Trunk/Scripts/Metrics_scripts/UserMetrics.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Metrics_scripts/UserMetrics.pm
r2655 r2658 138 138 write; 139 139 my ($username, $sub_total); 140 foreach $username (sort keys(%userlist)) { 140 # !!!!!! 141 # foreach $username (sort keys(%userlist)) { # ASCII sort order 142 foreach my $username (sort {lc($a) cmp lc($b)} keys %userlist) { # dictionary sort order 143 # !!!!!! 141 144 $sub_total = $userlist{"$username"}; 142 145 $~ = "WRITELINE";