[otrs-cvs] FAQ/Kernel/System FAQ.pm,1.150,1.151

[CVS commits notifications of OTRS.org]

Comments:
Update of /home/cvs/FAQ/Kernel/System
In directory lancelot:/tmp/cvs-serv29041/Kernel/System

Modified Files:
	FAQ.pm 
Log Message:
Fixed Bug 7455 - API StateTypeList() breaks config settings.

Author: cr

Index: FAQ.pm
===================================================================
RCS file: /home/cvs/FAQ/Kernel/System/FAQ.pm,v
retrieving revision 1.150
retrieving revision 1.151
diff -2 -u -d -r1.150 -r1.151
--- FAQ.pm	23 Jun 2011 15:33:35 -0000	1.150
+++ FAQ.pm	28 Jun 2011 14:07:22 -0000	1.151
@@ -2574,13 +2574,15 @@
     if ( $Param{Types} ) {
 
+        # copy $Param{Types} to a local value since it will be changed, if the reference value is
+        # changed it will bring side effects
+        my @Types = @{ $Param{Types} };
+
         # quote the types and add single quotes around them
-        for my $Type ( @{ $Param{Types} } ) {
+        for my $Type (@Types) {
             $Type = "'" . $Self->{DBObject}->Quote($Type) . "'";
-
         }
 
         # create string
-        my $InString = join ', ', @{ $Param{Types} };
-
+        my $InString = join ', ', @Types;
         $SQL .= ' WHERE name IN (' . $InString . ')';
     }