my $input= pipethrough_prep();
print $input $cplex or die $!;
my $output= pipethrough_run_along($input, undef, 'glpsol',
- qw(glpsol --tmlim 5 --memlim 5), @opts,
+ qw(glpsol --tmlim 5 --memlim 20), @opts,
qw( --cpxlp /dev/stdin -o /dev/stdout));
if ($qa->{'debug'}) {
print "<h3>@opts</h3>\n<pre>\n";
$linkqf{'query'}= 'commod';
$linkqf{'commodstring'}= $t->{'commodname'};
$linkqf{'commodid'}= $t->{'commodid'};
- my $linkqfpr= $quri->(%linkqf);
+ my $linkqfpr= encode_entities( $quri->(%linkqf) );
my $commodnamepr= encode_entities($t->{'commodname'});
$plan_html .= tr_datarow_s($m,$dline) . <<END;
<$td>$collectdeliver
<$td align=right>$t->{Total} total
END
foreach my $stallix (1..$#stalls) {
- tr_datarow_s($m,$dline);
+ $plan_html .= tr_datarow_s($m,$dline);
$pstall->($stallix);
}