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

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

Modified Files:
      Tag: rel-3_1
	Service.pm 
Log Message:
Updated file to latest framework version.

Author: ub

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