for my $name (sort keys %{ $cover->{$group} }) {
my $row = $cover->{$group}->{$name};
print '<tr>';
- $name = qq{<a href="/chars/$name">$name</a>}
+ $name = sprintf '<a href="%s">%s</a>', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
if $row->{-count} and $row->{-count} < 1280;
print '<th>', $name;
print '<td class=right>', $row->{-count};