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))
|
foreach(keys(%$trans))
|
||||||
{
|
{
|
||||||
my $pattern = chr($_);
|
my $pattern = chr($_);
|
||||||
$value =~ s/$pattern/$trans->{$_}/gi;
|
$value =~ s/$pattern/$trans->{$_}/g;
|
||||||
}
|
}
|
||||||
|
|
||||||
return $value;
|
return $value;
|
||||||
|
@ -231,7 +231,7 @@ sub safe_output($) {
|
||||||
foreach(keys(%$trans))
|
foreach(keys(%$trans))
|
||||||
{
|
{
|
||||||
my $pattern = chr($_);
|
my $pattern = chr($_);
|
||||||
$value =~ s/$trans->{$_}/$pattern/gi;
|
$value =~ s/$trans->{$_}/$pattern/g;
|
||||||
}
|
}
|
||||||
|
|
||||||
return $value;
|
return $value;
|
||||||
|
|
Loading…
Reference in New Issue