writing: keyed table rows in includes
[sheet.git] / writing.plp
index da267d0..d71dba4 100644 (file)
@@ -43,7 +43,7 @@ for (
                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>