-<HTML>
-<HEAD>
-<TITLE>test pirate page</TITLE>
-</HEAD>
-<BODY>
-
-<html><head><title>Best commod offer</title></head><body>
-<%perl>
-my $sth=$dbh->prepare(
- "SELECT a.commodname,b.price,b.qty,d.stallname,e.islandname
- FROM commods as a
- JOIN buy as b on a.commodid=b.commodid
- JOIN stalls as d on d.stallid=b.stallid
- JOIN islands as e on e.islandid=d.islandid
- GROUP BY d.islandid
- HAVING b.price=MAX(b.price)
- ");
-
-$sth->execute();
-</%perl>
-<table frame=box rules=all>
-<tr><td>commod</td><td>price</td><td>qty</td><td>Stall</td><td>island</td></tr>
-% my @row;
-% while (@row=$sth->fetchrow_array) {
-<tr>
-% foreach my $cell (@row) {
-<td>
-<% $cell %>
-</td>
-% }
-</tr>
-% }
-</table>
-
-</BODY>
-</HTML>
-
-<%init>
-use CommodsWeb;
-my $dbh= dbw_connect('Midnight');
-</%init>
~yarrgweb / ypp-sc-tools.web-live.git / commitdiff