Revision 78f0df90
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 257 | 257 |
my $db_charset = $main::dbcharset; |
| 258 | 258 |
$db_charset ||= Common::DEFAULT_CHARSET; |
| 259 | 259 |
|
| 260 |
if ($self->{INPUT_ENCODING}) {
|
|
| 261 |
if (lc $self->{INPUT_ENCODING} ne lc $db_charset) {
|
|
| 262 |
require Text::Iconv; |
|
| 263 |
my $iconv = Text::Iconv->new($self->{INPUT_ENCODING}, $db_charset);
|
|
| 260 |
my $encoding = $self->{INPUT_ENCODING} || $db_charset;
|
|
| 261 |
delete $self->{INPUT_ENCODING};
|
|
| 264 | 262 |
|
| 265 |
_recode_recursively($iconv, $self); |
|
| 266 |
} |
|
| 267 |
|
|
| 268 |
delete $self->{INPUT_ENCODING};
|
|
| 269 |
} |
|
| 263 |
_recode_recursively(SL::Iconv->new($encoding, $db_charset), $self); |
|
| 270 | 264 |
|
| 271 | 265 |
$self->{action} = lc $self->{action};
|
| 272 | 266 |
$self->{action} =~ s/( |-|,|\#)/_/g;
|
Auch abrufbar als: Unified diff
Alle Eingaben konvertieren & UTF8-Flag setzen