git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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) {
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;
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++;
$col++;
if ($_ eq '>') {
$colspan++;