Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 78f0df90

Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt

  • ID 78f0df906055d13bbbb9f84e900a7c82a67d0045
  • Vorgänger 439e45e4
  • Nachfolger 7535161d

Alle Eingaben konvertieren & UTF8-Flag setzen

Unterschiede anzeigen:

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