X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c544fb231402a1111fbc42dd7bae87aed6b0f4dc..cf5d941b1a839d049b4f322caebaff605cdd4efc:/latin.plp diff --git a/latin.plp b/latin.plp index bbd256b..1dcd8c7 100644 --- a/latin.plp +++ b/latin.plp @@ -134,12 +134,12 @@ else { say ''; for my $row (pairs @table) { - my ($title, $cells) = @{$row}; + my ($title, $info) = @{$row}; printf '', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr; say '', $title; my $colspan = 1; my $col = 0; - for (@{$cells}) { + for (@{ $info->{list} }) { $col++; if ($_ eq '>') { $colspan++;