X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Froutetrade;h=b198b9b3867ab7cff6ca4fb2150f2b33d037c921;hp=09e908b1ac44e160fb817dacb612a8c746e19b67;hb=f04037c4c0e6680c6b54aa7b367d0a53c70f64f1;hpb=6302552bfa5844eddb7c26386c9995733f0a5174;ds=sidebyside diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade index 09e908b..b198b9b 100644 --- a/yarrg/web/routetrade +++ b/yarrg/web/routetrade @@ -546,7 +546,7 @@ if ($qa->{'debug'}) { my ($varname, $qty) = m/^ \s* \d+ \s+ (\w+) \s+ (?: [A-Z*]+ \s+ )? - ([0-9.]+) \s + ([+-e0-9.]+) \s /x or die "$cplex \n==\n $glpsol_out $_ ?"; if ($varname =~ m/^f(\d+)s(\d+)_/) { my ($ix,$orgix) = ($1,$2); @@ -625,7 +625,7 @@ Generated by YARRG at <% %

Voyage trading plan

- > +
> % my $tbody= sub { % if (!printable($m)) { return ''; } %# return "' : '';

Relevant trades

-

"; @@ -857,7 +857,7 @@ Islands shown in reverse order of visits.
% my $cdspan= $qa->{ShowStalls} ? ' colspan=2' : ''; % my $cdstall= $qa->{ShowStalls} ? '
Stall
+
<% $qa->{ShowStalls} ? '' : '' %> @@ -965,7 +965,7 @@ Islands shown in reverse order of visits.
throw => 'trades_sort', tbrow => 'trades_total' &> ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>; - +

% } # !printable