X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fprofitable_trades;h=16e45b6e9ffdccde4ba870df5d49a076b0e793a6;hb=f276a86ab559f7800713f94bcda826d6783f46ab;hp=6aab676d4fee0e27b38f79c78738edf5b883ecfc;hpb=4c0fe82716fdf19f385f1f190de80beb6ea3c9c4;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/web/profitable_trades b/yarrg/web/profitable_trades
old mode 100755
new mode 100644
index 6aab676..16e45b6
--- a/yarrg/web/profitable_trades
+++ b/yarrg/web/profitable_trades
@@ -23,24 +23,12 @@ 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>
+<& dumptable, sth => $sth &>
 
 </BODY>
 </HTML>
 
 <%init>
 use CommodsWeb;
-my $dbh= dbw_connect('Midnight');
+my $dbh= dbw_connect('Cerulean');
 </%init>