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

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

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

Author: ub

Index: Service.pm
===================================================================
RCS file: /home/cvs/ITSMCore/Kernel/System/Service.pm,v
retrieving revision 1.34.2.2
retrieving revision 1.34.2.3
diff -2 -u -d -r1.34.2.2 -r1.34.2.3
--- Service.pm	26 Mar 2013 16:22:32 -0000	1.34.2.2
+++ Service.pm	3 Jul 2013 12:34:08 -0000	1.34.2.3
@@ -153,5 +153,5 @@
     my $CacheKey = 'ServiceList::' . $Param{Valid};
     my $Cache = $Self->{CacheInternalObject}->Get( Key => $CacheKey );
-    return %{$Cache} if $Cache;
+    return %{$Cache} if ref $Cache eq 'HASH';
 
     # ask database
@@ -484,5 +484,5 @@
 # ---
     my $Cache = $Self->{CacheInternalObject}->Get( Key => $CacheKey );
-    return %{$Cache} if $Cache;
+    return %{$Cache} if ref $Cache eq 'HASH';
 
     # get service from db
@@ -1112,8 +1112,8 @@
     my $Cache = $Self->{CacheInternalObject}->Get( Key => $CacheKey );
     if ( $Param{Result} eq 'HASH' ) {
-        return %{$Cache} if $Cache;
+        return %{$Cache} if ref $Cache eq 'HASH';
     }
     else {
-        return @{$Cache} if $Cache;
+        return @{$Cache} if ref $Cache eq 'ARRAY';
     }
 
@@ -1310,5 +1310,5 @@
     my $CacheKey = 'ServiceParentsGet::' . $Param{ServiceID};
     my $Cache = $Self->{CacheInternalObject}->Get( Key => $CacheKey );
-    return %{$Cache} if $Cache;
+    return $Cache if ref $Cache;
 
     # get the list of services
---------------------------------------------------------------------
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