writing: keyed table rows in includes

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index da267d06a96a1ed8a51e2683e1abcad0688b450a..d71dba445eadc91c4ef934cc62173244195c9171 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -43,7 +43,7 @@ for (
                printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
                next;
        }
                printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
                next;
        }

-       $glyphs->print($title => \@table);
+       $glyphs->print($title => [ map { @$_ } grep { ref $_ eq 'ARRAY' } @table ]);

 }
 
 :></div>
 }
 
 :></div>