[otrs-cvs] TimeAccounting/Kernel/System TimeAccounting.pm, 1.64, 1.65

Comments:
Update of /home/cvs/TimeAccounting/Kernel/System
In directory lancelot:/tmp/cvs-serv20717/Kernel/System

Modified Files:
	TimeAccounting.pm 
Log Message:
Code cleanup with OTRSRecode.

Author: mh

Index: TimeAccounting.pm
===================================================================
RCS file: /home/cvs/TimeAccounting/Kernel/System/TimeAccounting.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -2 -u -d -r1.64 -r1.65
--- TimeAccounting.pm	30 Nov 2012 13:32:58 -0000	1.64
+++ TimeAccounting.pm	30 Nov 2012 15:56:51 -0000	1.65
@@ -229,5 +229,5 @@
 
     USERID:
-    for my $UserID ( keys %UserCurrentPeriod ) {
+    for my $UserID ( sort keys %UserCurrentPeriod ) {
 
         if ( $UserCurrentPeriod{$UserID}{DateStart} =~ m{ \A (\d{4})-(\d{2})-(\d{2}) }xms ) {
@@ -958,6 +958,8 @@
     # check if user exists
     if ( !$Self->{UserObject}->UserLookup( UserID => $Param{UserID} ) ) {
-        $Self->{LogObject}
-            ->Log( Priority => 'error', Message => "UserID $Param{UserID} does not exist!" );
+        $Self->{LogObject}->Log(
+            Priority => 'error',
+            Message  => "UserID $Param{UserID} does not exist!"
+        );
         return;
     }
@@ -1083,5 +1085,5 @@
 
     # update all periods
-    for my $Period ( keys %{ $Param{Period} } ) {
+    for my $Period ( sort keys %{ $Param{Period} } ) {
 
         # db insert
@@ -1227,9 +1229,9 @@
         = $Self->{ConfigObject}->Get('TimeAccounting::MaxIntervalOfIncompleteDaysBeforeWarning')
         || '3';
-    for my $Year ( keys %{ $Data{Incomplete} } ) {
+    for my $Year ( sort keys %{ $Data{Incomplete} } ) {
 
-        for my $Month ( keys %{ $Data{Incomplete}{$Year} } ) {
+        for my $Month ( sort keys %{ $Data{Incomplete}{$Year} } ) {
 
-            for my $Day ( keys %{ $Data{Incomplete}{$Year}{$Month} } ) {
+            for my $Day ( sort keys %{ $Data{Incomplete}{$Year}{$Month} } ) {
 
                 if (
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log