font: grouped character groups

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index 50d8dcb2a96848f21ae17024c2c57e7c53f12cd5..11eba2f5566f2ef26ac6ad110442005166472f3c 100644 (file)
--- 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>';
 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};
                if $row->{-count} and $row->{-count} < 1280;
        print '<th>', $name;
        print '<td class=right>', $row->{-count};