Fixed lower and higher case problems with tildes and written accents.
This commit is contained in:
parent
b533d3930d
commit
82658cb6fa
|
@ -178,7 +178,7 @@ sub safe_input($) {
|
|||
foreach(keys(%$trans))
|
||||
{
|
||||
my $pattern = chr($_);
|
||||
$value =~ s/$pattern/$trans->{$_}/gi;
|
||||
$value =~ s/$pattern/$trans->{$_}/g;
|
||||
}
|
||||
|
||||
return $value;
|
||||
|
@ -231,7 +231,7 @@ sub safe_output($) {
|
|||
foreach(keys(%$trans))
|
||||
{
|
||||
my $pattern = chr($_);
|
||||
$value =~ s/$trans->{$_}/$pattern/gi;
|
||||
$value =~ s/$trans->{$_}/$pattern/g;
|
||||
}
|
||||
|
||||
return $value;
|
||||
|
|
Loading…
Reference in New Issue