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