TODO list items

[ypp-sc-tools.web-test.git] / yarrg / web / routetrade

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index e4e583a83a190f1f33a77411c8533fdf50b505a8..07789cf412564330fbfcd3d3606d30077c28b20b 100644 (file)
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -34,6 +34,13 @@
 
 ========== TODO ==========
 16:36 <ceb> alpha,byrne,papaya,turtle,jorvik,luthien is my example
+xi,heph for mixed arbitrage/trade
+
+initial/final stocks feature
+
+display net cash flow
+
+onload thing broken, need proper framework
 
 use POST for update.  Hrrm.
 
@@ -587,7 +594,8 @@ Sail to <% $islandname |h %>
                my $stallname= $f->{"${od}_stallname"};
                my $todo= \$flowlists{$od}{
                                $f->{'commodname'},
-                               (sprintf "%07d", $price),
+                               (sprintf "%07d", ($od eq 'dst' ?
+                                               9999999-$price : $price)),
                                $stallname
                        };
                $$todo= {
@@ -668,9 +676,9 @@ Sail to <% $islandname |h %>
 <%perl>
      };
 
-     $show_flows->('org',1,'Collect');  $show_total->('(Arbitrage) outlay');
-     $show_flows->('dst',1,'Deliver');
      $show_flows->('dst',0,'Deliver');  $show_total->('Proceeds');
+     $show_flows->('org',1,'Collect');  $show_total->('(Arbitrage) outlay');
+     $show_flows->('dst',1,'Deliver');  $show_total->('(Arbitrage) proceeds');
      $show_flows->('org',0,'Collect');  $show_total->('Outlay');
 
 }