Revision 662a225c
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 57 | 57 |
use SL::User; |
| 58 | 58 |
use Template; |
| 59 | 59 |
use List::Util qw(first max min sum); |
| 60 |
use List::MoreUtils qw(any); |
|
| 60 | 61 |
|
| 61 | 62 |
my $standard_dbh; |
| 62 | 63 |
|
| ... | ... | |
| 255 | 256 |
$main::lxdebug->enter_sub(); |
| 256 | 257 |
my ($iconv, $param) = @_; |
| 257 | 258 |
|
| 258 |
if (ref $param eq 'HASH') {
|
|
| 259 |
if (any { ref $param eq $_ } qw(Form HASH)) {
|
|
| 259 | 260 |
foreach my $key (keys %{ $param }) {
|
| 260 | 261 |
if (!ref $param->{$key}) {
|
| 261 | 262 |
$param->{$key} = $iconv->convert($param->{$key});
|
Auch abrufbar als: Unified diff
Bugfix: _recode_recursively hat das Form Objekt nicht als Hash erkannt.
Symptom: Langtexte werden nicht korrekt kodiert.