Escape visible values in select list

This commit is contained in:
Jamie Cameron
2012-07-20 11:21:15 -07:00
parent a28c1d4fbb
commit 3fa786eeb0

View File

@@ -857,7 +857,7 @@ foreach $o (@$opts) {
$o = [ $o ] if (!ref($o));
$rv .= "<option value=\"".&quote_escape($o->[0])."\"".
($sel{$o->[0]} ? " selected" : "")." ".$o->[2].">".
($o->[1] || $o->[0])."\n";
&html_escape($o->[1] || $o->[0])."\n";
$opt{$o->[0]}++;
}
foreach $s (keys %sel) {