}
$f->{Uid}= join '_', @uid;
+ if ($qa->{"rtsela_$f->{Uid}"} &&
+ !$qa->{"rtselg_$f->{Uid}"}) {
+ $f->{Suppress}= 1;
+ }
+
push @flows, $f;
</%perl>
my %avail_csts;
foreach my $flow (@flows) {
+ if ($flow->{Suppress}) {
+ $cplex .= "
+ $flow->{Var} = 0
+";
+ next;
+ }
foreach my $od (qw(org dst)) {
my $cstname= join '_', (
'avail',
% my $cdstall= $qa->{ShowStalls} ? '<th>Stall</th>' : '';
<table>
<tr>
+<th>
<th<% $cdspan %>>Collect
<th<% $cdspan %>>Deliver
<th>
% }
<tr>
+<th>
<th>Island <% $cdstall %>
<th>Island <% $cdstall %>
<th>Commodity
% foreach my $flow (@flows) {
<tr>
+<td><input type=hidden name=rtsela_<% $flow->{Uid} %> value=1>
+ <input type=checkbox name=rtselg_<% $flow->{Uid} %> value=1
+ <% $flow->{Suppress} ? '' : 'checked' %> >
% foreach my $col (@columns) {
<td><% $flow->{$col} |h %>
% }
% }
</table>
+<input type=submit name=update value="Update">
+
<%init>
use CommodsWeb;
use Commods;