Fix problem with profile field possibleValues with apostrophes in i18n

substitutions not working.
This commit is contained in:
Drake 2006-12-01 19:17:37 +00:00
parent f11b0b8b85
commit 3b4943177f
2 changed files with 4 additions and 2 deletions

View file

@ -109,8 +109,9 @@ sub secureEval {
my @param = split (/,\s*/,$2);
@param = map { s/^['"]|['"]$//g; $_; } @param;
my $output = $trusted{$function}(@param);
return $output if (ref $output);
$code =~ s/\Q$cmd/'$output'/g;
return $output if (ref $output);
$output =~ s/\'/\\\'/g;
$code =~ s/\Q$cmd/\'$output\'/g;
}
}