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