latin: encode row data in named hashes

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index bbd256b959591f0f635e252aa2116faeab15081c..1dcd8c7881f81f7757426665289677f3e28f7504 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -134,12 +134,12 @@ else {
        say '</thead>';
 
        for my $row (pairs @table) {
-               my ($title, $cells) = @{$row};
+               my ($title, $info) = @{$row};
                printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
                say '<th>', $title;
                my $colspan = 1;
                my $col = 0;
-               for (@{$cells}) {
+               for (@{ $info->{list} }) {
                        $col++;
                        if ($_ eq '>') {
                                $colspan++;