[otrs-cvs] ITSMCore/Kernel/System Service.pm,1.38,1.39

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

Modified Files:
	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.38
retrieving revision 1.39
diff -2 -u -d -r1.38 -r1.39
--- Service.pm	13 Jun 2013 08:47:57 -0000	1.38
+++ Service.pm	18 Jun 2013 14:29:28 -0000	1.39
@@ -777,7 +777,5 @@
 
     # reset cache
-    $Self->{CacheInternalObject}->CleanUp(
-        Type => 'Service',
-    );
+    $Self->{CacheInternalObject}->CleanUp();
 
     return $ServiceID;
@@ -949,7 +947,5 @@
 
     # reset cache
-    $Self->{CacheInternalObject}->CleanUp(
-        Type => 'Service',
-    );
+    $Self->{CacheInternalObject}->CleanUp();
 
     return 1;
@@ -1075,4 +1071,7 @@
         $Param{DefaultServices} = 1;
     }
+    else {
+        $Param{DefaultServices} = 0;
+    }
 
     # get options for default services for unknown customers
@@ -1100,5 +1099,5 @@
     # create cache key
     my $CacheKey = 'CustomerUserServiceMemberList::' . $Param{Result} . '::'
-        . 'DefaultServices::' . $Param{DefaultServices} . '..';
+        . 'DefaultServices::' . $Param{DefaultServices} . '::';
     if ( $Param{ServiceID} ) {
         $CacheKey .= 'ServiceID::' . $Param{ServiceID};
@@ -1146,5 +1145,4 @@
     while ( my @Row = $Self->{DBObject}->FetchrowArray() ) {
 
-        my $Key   = '';
         my $Value = '';
         if ( $Param{ServiceID} ) {
@@ -1189,4 +1187,6 @@
 to add a member to a service
 
+if 'Active' is 0, the customer is removed from the service
+
     $ServiceObject->CustomerUserServiceMemberAdd(
         CustomerUserLogin => 'Test1',
@@ -1220,5 +1220,5 @@
     # return if relation is not active
     if ( !$Param{Active} ) {
-        $Self->{CacheInternalObject}->CleanUp( Type => 'Service' );
+        $Self->{CacheInternalObject}->CleanUp();
         return;
     }
@@ -1231,5 +1231,6 @@
         Bind => [ \$Param{CustomerUserLogin}, \$Param{ServiceID}, \$Param{UserID} ]
     );
-    $Self->{CacheInternalObject}->CleanUp( Type => 'Service' );
+
+    $Self->{CacheInternalObject}->CleanUp();
     return $Success;
 }
@@ -1253,7 +1254,5 @@
     $Self->{PreferencesObject}->ServicePreferencesSet(@_);
 
-    $Self->{CacheInternalObject}->CleanUp(
-        Type => 'Service',
-    );
+    $Self->{CacheInternalObject}->CleanUp();
     return 1;
 }
---------------------------------------------------------------------
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