Changeset 2654
- Timestamp:
- 09/29/08 09:08:49 (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
r2517 r2654 120 120 my %userlist = %$userlist; 121 121 if ($debug) { 122 foreach my $username (sort keys(%userlist)) { 122 # !!!!!! 123 # foreach my $username (sort keys(%userlist)) { 124 foreach my $username (sort {lc($a) cmp lc($b)} keys %userlist) { 125 # !!!!!! 123 126 my $sub_total = $userlist{"$username"}; 124 127 print "$username:$sub_total seconds;" . $sub_total/60 . " minutes\n" if $debug;