[otrs-cvs] CVS: otrs/Kernel/System Package.pm,1.50,1.51

[cvs-log at otrs.org]

Update of /home/cvs/otrs/Kernel/System
In directory lancelot:/tmp/cvs-serv24050/Kernel/System

Modified Files:
	Package.pm 
Log Message:
small code clean up

Index: Package.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/Package.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -r1.50 -r1.51
*** Package.pm	23 Sep 2006 15:02:37 -0000	1.50
--- Package.pm	5 Oct 2006 01:20:10 -0000	1.51
***************
*** 1233,1250 ****
          }
          elsif (ref($Param{$Tag}) eq 'ARRAY') {
!           foreach (@{$Param{$Tag}}) {
!             my %Hash = %{$_};
!             my %OldParam = ();
!             foreach (qw(Content Encode TagType Tag TagLevel TagCount TagKey TagLastLevel)) {
!                 $OldParam{$_} = $Hash{$_};
!                 delete $Hash{$_};
              }
-             $XML .= "  <$Tag";
-             foreach (keys %Hash) {
-                 $XML .= " $_=\"".$Self->_Encode($Hash{$_})."\"";
-             }
-             $XML .= ">";
-             $XML .= $Self->_Encode($OldParam{Content})."</$Tag>\n";
-           }
          }
          else {
--- 1233,1250 ----
          }
          elsif (ref($Param{$Tag}) eq 'ARRAY') {
!             foreach (@{$Param{$Tag}}) {
!                 my %Hash = %{$_};
!                 my %OldParam = ();
!                 foreach (qw(Content Encode TagType Tag TagLevel TagCount TagKey TagLastLevel)) {
!                     $OldParam{$_} = $Hash{$_};
!                     delete $Hash{$_};
!                 }
!                 $XML .= "  <$Tag";
!                 foreach (keys %Hash) {
!                     $XML .= " $_=\"".$Self->_Encode($Hash{$_})."\"";
!                 }
!                 $XML .= ">";
!                 $XML .= $Self->_Encode($OldParam{Content})."</$Tag>\n";
              }
          }
          else {