From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 16 Jun 2009 13:13:59 +0000 (+0000)
Subject: Bugfix: _recode_recursively hat das Form Objekt nicht als Hash erkannt.
X-Git-Tag: release-2.6.1beta1~396
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=662a225c09e81e1d9297f336bb937815252f39e4;p=kivitendo-erp.git

Bugfix: _recode_recursively hat das Form Objekt nicht als Hash erkannt.

Symptom: Langtexte werden nicht korrekt kodiert.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 9a7c9e175..3075968b6 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -57,6 +57,7 @@ use SL::Template;
 use SL::User;
 use Template;
 use List::Util qw(first max min sum);
+use List::MoreUtils qw(any);
 
 my $standard_dbh;
 
@@ -255,7 +256,7 @@ sub _recode_recursively {
   $main::lxdebug->enter_sub();
   my ($iconv, $param) = @_;
 
-  if (ref $param eq 'HASH') {
+  if (any { ref $param eq $_ } qw(Form HASH)) {
     foreach my $key (keys %{ $param }) {
       if (!ref $param->{$key}) {
         $param->{$key} = $iconv->convert($param->{$key});