X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f4202b592c541333b3cd4aca471025dea8cb18fd..172ac2071d3abc38204486f93567fa61c197a35c:/latin.plp?ds=inline diff --git a/latin.plp b/latin.plp index 897fe0a..687e082 100644 --- a/latin.plp +++ b/latin.plp @@ -17,76 +17,16 @@ Html({ :> @@ -120,15 +59,30 @@ if ($! or $@) { Alert("Table data not found", $@ || $!); } else { + say '\n"; + my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24); say '
# ASCII â 64'; + print ' | ', $_ for 1 .. 26; + say ' |
---|---|
', $title; + my ($id, $info) = @{$row}; + + printf ' | |
', $info->{title} // ucfirst $id; + my $colspan = 1; my $col = 0; - for (@{$cells}) { + for (@{ $info->{list} }) { $col++; if ($_ eq '>') { $colspan++; |