From da8db80459e25a474b545779db3fcd0304e68325 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 22 Aug 2009 13:35:28 +0100
Subject: [PATCH] New dumpqueryresults component for handy debugging etc.

---
 yarrg/web/dumpqueryresults  | 20 ++++++++++++++++++++
 yarrg/web/profitable_trades | 14 +-------------
 2 files changed, 21 insertions(+), 13 deletions(-)
 create mode 100644 yarrg/web/dumpqueryresults

diff --git a/yarrg/web/dumpqueryresults b/yarrg/web/dumpqueryresults
new file mode 100644
index 0000000..c653d81
--- /dev/null
+++ b/yarrg/web/dumpqueryresults
@@ -0,0 +1,20 @@
+<%args>
+$sth
+</%args>
+<table frame=box rules=all>
+<tr>
+% foreach my $field (@{ $sth->{NAME} }) {
+<th><% $field |h %>
+% }
+</tr>
+% my @row;
+% while (@row=$sth->fetchrow_array) {
+<tr>
+% foreach my $cell (@row) {
+<td>
+<% $cell |h %>
+</td>
+% }
+</tr>
+% }
+</table>
diff --git a/yarrg/web/profitable_trades b/yarrg/web/profitable_trades
index 6aab676..1566baf 100755
--- a/yarrg/web/profitable_trades
+++ b/yarrg/web/profitable_trades
@@ -23,19 +23,7 @@ my $sth=$dbh->prepare(
 
 $sth->execute();
 </%perl>
-<table frame=box rules=all>
-<tr><td>commod</td><td>buy island</td><td>buy stall</td><td>buy price</td><td>buy quantity</td><td>sell island</td><td>sell stall</td><td>sell price</td><td>sell qty</td></tr>
-% my @row;
-% while (@row=$sth->fetchrow_array) {
-<tr>
-% foreach my $cell (@row) {
-<td>
-<% $cell %>
-</td>
-% }
-</tr>
-% }
-</table>
+<& dumpqueryresults, sth => $sth &>
 
 </BODY>
 </HTML>
-- 
2.30.2