[otrs-cvs] ITSMCore/Kernel/System Service.pm,1.34,1.34.2.1

Comments:
Update of /home/cvs/ITSMCore/Kernel/System
In directory lancelot:/tmp/cvs-serv14942/Kernel/System

Modified Files:
      Tag: rel-3_1
	Service.pm 
Log Message:
Removed $Version. Small code style improvements.

Author: ub

Index: Service.pm
===================================================================
RCS file: /home/cvs/ITSMCore/Kernel/System/Service.pm,v
retrieving revision 1.34
retrieving revision 1.34.2.1
diff -2 -u -d -r1.34 -r1.34.2.1
--- Service.pm	22 Oct 2012 21:24:15 -0000	1.34
+++ Service.pm	23 Mar 2013 14:13:17 -0000	1.34.2.1
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/Service.pm - all service function
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -28,6 +28,5 @@
 # ---
 
-use vars qw(@ISA $VERSION);
-$VERSION = qw($Revision$) [1];
+use vars qw(@ISA);
 
 =head1 NAME
@@ -180,5 +179,5 @@
 
     # add suffix for correct sorting
-    for my $ServiceID ( keys %ServiceListTmp ) {
+    for my $ServiceID ( sort keys %ServiceListTmp ) {
         $ServiceListTmp{$ServiceID} .= '::';
     }
@@ -198,8 +197,8 @@
 
     # delete invalid services and childs
-    for my $ServiceID ( keys %ServiceList ) {
+    for my $ServiceID ( sort keys %ServiceList ) {
 
         INVALIDNAME:
-        for my $InvalidName ( keys %ServiceInvalidList ) {
+        for my $InvalidName ( sort keys %ServiceInvalidList ) {
 
             if ( $ServiceList{$ServiceID} =~ m{ \A \Q$InvalidName\E :: }xms ) {
@@ -1119,5 +1118,5 @@
 
     # db quote
-    for ( keys %Param ) {
+    for ( sort keys %Param ) {
         $Param{$_} = $Self->{DBObject}->Quote( $Param{$_} );
     }
@@ -1585,8 +1584,2 @@
 
 =cut
-
-=head1 VERSION
-
-$Revision$ $Date$
-
-=cut
---------------------------------------------------------------------
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