-say $glyphs->tabletag;
-for my $row (pairs @table) {
- my ($id, $info) = @{$row};
- my $title = $info->{title} // $scriptname->{$id} || $id;
- print $glyphs->row([ ".>$title", @{$info->{list}} ]);
+sub printtable {
+ say '<div class=section>', $glyphs->tabletag;
+ for my $id (@_) {
+ my $info = $table->{$id};
+ my $title = $info->{title} // $scriptname->{$id} || $id;
+ print $glyphs->row([ ".>$title", @{$info->{list}} ]);
+ }
+ say '</table></div>';