yarrg/web/dumpqueryresults

   1 <%args>
   2 $sth
   3 </%args>
   4 <table frame=box rules=all>
   5 <tr>
   6 % foreach my $field (@{ $sth->{NAME} }) {
   7 <th><% $field |h %>
   8 % }
   9 </tr>
  10 % my @row;
  11 % while (@row=$sth->fetchrow_array) {
  12 <tr>
  13 % foreach my $cell (@row) {
  14 <td>
  15 <% $cell |h %>
  16 </td>
  17 % }
  18 </tr>
  19 % }
  20 </table>