From f41b94c1ec31bbff084b7429c1aec495aca2ab1e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 16:41:47 +0100
Subject: [PATCH] WIP trade plan

---
 yarrg/web/routetrade | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index cb0ef93..6bc7277 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -466,6 +466,41 @@ $addcols->({ Total => 0 }, qw(
 
 <input type=submit name=update value="Update">
 
+% if ($optimise) { # ========== TRADING PLAN ==========
+%
+% my $iquery= $dbh->prepare('SELECT islandname FROM islands
+%				WHERE islandid = ?');
+%
+<h1>Voyage trading plan</h1>
+<table>
+% foreach my $i (0..$#islandids) {
+<tr><td colspan=4><strong>
+%	$iquery->execute($islandids[$i]);
+%	my ($islandname) = $iquery->fetchrow_array();
+%	if (!$i) {
+Start at <% $islandname |h %>
+%	} else {
+Sail to <% $islandname |h %>
+%	}
+</strong>
+%    foreach my $od (qw(dst org)) {
+%	my $sign= $od eq 'dst' ? -1 : +1;
+%	foreach my $f (sort {
+%			$a->{'commodname'} cmp $b->{'commodname'}
+%		or $sign * ($a->{"${od}_price"} <=> $b->{"${od}_price"})
+%		or	$a->{"${od}_stallname"} cmp $b->{"${od}_stallname"}
+%		} @flows) {
+%		next if $f->{Suppress};
+%		next unless $f->{"${od}_id"} == $islandids[$i];
+%		next unless $f->{OptQty};
+<tr>Buy or sell flow 
+%	}
+%    }
+% }
+</table>
+%
+% } # ========== TRADING PLAN ==========
+
 <%init>
 use CommodsWeb;
 use Commods;
-- 
2.30.2