my ($new_item, $callback_sub);
- my $re = "^new_.*_" . $form->{selection};
+ my $re = "^new_.*_$form->{selection}\$";
foreach (grep /$re/, keys %{ $form }) {
my $new_key = $_;
# -------------------------------------------------------------------------
sub H {
- return $form->quote_html($_[0]);
+ return $locale->quote_special_chars('HTML', $_[0]);
}
sub Q {
- return $form->quote($_[0]);
+ return $locale->quote_special_chars('URL@HTML', $_[0]);
}
sub E {