X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/aff24d1391a688cdef38674f3f10c4842d84fa1a..1b59bfbf3962b74b973bde67c3de5b20dd5e7b58:/font.plp

diff --git a/font.plp b/font.plp
index 50d8dcb..11eba2f 100644
--- a/font.plp
+++ b/font.plp
@@ -57,7 +57,7 @@ for my $group (sort keys %{$cover}) {
 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};