Revision 999fdf7d
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 306 | 306 |
my $db_charset = $main::dbcharset; |
| 307 | 307 |
$db_charset ||= Common::DEFAULT_CHARSET; |
| 308 | 308 |
|
| 309 |
if ($self->{INPUT_ENCODING} && (lc $self->{INPUT_ENCODING} ne $db_charset)) {
|
|
| 310 |
require Text::Iconv; |
|
| 311 |
my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);
|
|
| 309 |
if ($self->{INPUT_ENCODING}) {
|
|
| 310 |
if (lc $self->{INPUT_ENCODING} ne lc $db_charset) {
|
|
| 311 |
require Text::Iconv; |
|
| 312 |
my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);
|
|
| 312 | 313 |
|
| 313 |
_recode_recursively($iconv, $self); |
|
| 314 |
_recode_recursively($iconv, $self); |
|
| 315 |
} |
|
| 314 | 316 |
|
| 315 | 317 |
delete $self{INPUT_ENCODING};
|
| 316 | 318 |
} |
Auch abrufbar als: Unified diff
Nur dann die Eingabe recodieren, wenn sich die Charsets wirklich unterscheiden.