X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fdumptable;h=e60415c8469bae1c94dd8ed5851bfe84e48588a4;hb=8389c1d520e0b70f79fc2ce72b4840b0f9e96700;hp=20dc25f12ceb4ea7a77e51302e7ec9557b53e10a;hpb=bdad24af2d97e3448b671da80bb4247411bafbea;p=ypp-sc-tools.db-test.git 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) {