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 9a7c9e1759673c8474dd9ff27aef30d5c6e9aa70..3075968b6b792dc76abd26af6ac27f29f2ae70f4 100644 (file)
--- 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 SL::User;
 use Template;
 use List::Util qw(first max min sum);

+use List::MoreUtils qw(any);

 
 my $standard_dbh;
 
 
 my $standard_dbh;
 


@@ -255,7 +256,7 @@ sub _recode_recursively {
   $main::lxdebug->enter_sub();
   my ($iconv, $param) = @_;
 
   $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});
     foreach my $key (keys %{ $param }) {
       if (!ref $param->{$key}) {
         $param->{$key} = $iconv->convert($param->{$key});