X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/505057bf787c2582cc1e4d3e17f2ea6c93ab53bd..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++;