X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fdumptable;h=e60415c8469bae1c94dd8ed5851bfe84e48588a4;hp=20dc25f12ceb4ea7a77e51302e7ec9557b53e10a;hb=ce2957283c84ae291297359f8f2b1b5f0e5fbf20;hpb=bdad24af2d97e3448b671da80bb4247411bafbea diff --git a/yarrg/web/dumptable b/yarrg/web/dumptable index 20dc25f..e60415c 100644 --- a/yarrg/web/dumptable +++ b/yarrg/web/dumptable @@ -96,6 +96,19 @@ $qa => undef % } +<%method literal> +<%args> +$cols +$rows +$qa => undef + +<& SELF:start, cols => $cols &> +% foreach my $row (@$rows) { +<& SELF:row, cols => $cols, row => $row &> +% } +<& SELF:end &> + + <& SELF:start, sth => $sth &> % my $row; % while ($row= $sth->fetchrow_hashref) {