chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
New dumpqueryresults component for handy debugging etc.
[ypp-sc-tools.db-live.git]
/
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>