X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9e8a1a62109e2c4f99376c78396f6e1581fe3e7c..ec52855f4ae863d612705fc55dcb8b2277bea3cc:/SL/Request.pm diff --git a/SL/Request.pm b/SL/Request.pm index 57b729798..0045b1928 100644 --- a/SL/Request.pm +++ b/SL/Request.pm @@ -212,16 +212,16 @@ sub read_cgi_input { } } + my $encoding = delete $temp_target->{INPUT_ENCODING} || $db_charset; + + _recode_recursively(SL::Iconv->new($encoding, $db_charset), $temp_target => $target) if keys %$target; + if ($target->{RESTORE_FORM_FROM_SESSION_ID}) { my %temp_form; $::auth->restore_form_from_session(delete $target->{RESTORE_FORM_FROM_SESSION_ID}, form => \%temp_form); _store_value($target, $_, $temp_form{$_}) for keys %temp_form; } - my $encoding = delete $temp_target->{INPUT_ENCODING} || $db_charset; - - _recode_recursively(SL::Iconv->new($encoding, $db_charset), $temp_target => $target) if keys %$target; - map { $target->{$_} = $temp_target->{$_} } keys %{ $temp_target }; $::lxdebug->leave_sub;