printf '<td>%s', $_ for @fontlist;
say '</thead>';
-for my $name (sort keys %{$cover}) {
- my $row = $cover->{$name};
+for my $group (sort keys %{$cover}) {
+ say '<tbody>';
+for my $name (sort keys %{ $cover->{$group} }) {
+ my $row = $cover->{$group}->{$name};
print '<tr>';
$name = qq{<a href="/chars/$name">$name</a>}
if $row->{-count} and $row->{-count} < 1280;
}
say '</tr>';
}
+ say '</tbody>';
+}
say "</table>\n";