From e0611dabab226be60c2254739617755cf2966e38 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 22 Aug 2009 12:51:32 +0100 Subject: [PATCH 1/1] Remove obsolete WIP script --- yarrg/web/best-sell-price | 41 --------------------------------------- 1 file changed, 41 deletions(-) delete mode 100755 yarrg/web/best-sell-price diff --git a/yarrg/web/best-sell-price b/yarrg/web/best-sell-price deleted file mode 100755 index ca9208f..0000000 --- a/yarrg/web/best-sell-price +++ /dev/null @@ -1,41 +0,0 @@ - - -test pirate page - - - -Best commod offer -<%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(); - - - -% my @row; -% while (@row=$sth->fetchrow_array) { - -% foreach my $cell (@row) { - -% } - -% } -
commodpriceqtyStallisland
-<% $cell %> -
- - - - -<%init> -use CommodsWeb; -my $dbh= dbw_connect('Midnight'); - -- 2.30.2