X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Froutetrade;h=c62ca60b7f89a7956008cacc7c8998ae944a72c7;hb=HEAD;hp=8d8b48b4edf0b8bbc807403d26b12b1470c2ca21;hpb=4adafa149280c9ac2972582c05ae7859f3fddddf;p=ypp-sc-tools.web-live.git diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade index 8d8b48b..c62ca60 100644 --- a/yarrg/web/routetrade +++ b/yarrg/web/routetrade @@ -586,7 +586,7 @@ my $try_solve= sub { my $input= pipethrough_prep(); print $input $cplex or die $!; my $output= pipethrough_run_along($input, undef, 'glpsol', - qw(glpsol --tmlim 1 --memlim 5), @opts, + qw(glpsol --tmlim 5 --memlim 20), @opts, qw( --cpxlp /dev/stdin -o /dev/stdout)); if ($qa->{'debug'}) { print "
\n"; @@ -896,7 +896,7 @@ END $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) . <$collectdeliver @@ -918,7 +918,7 @@ END <$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); } @@ -1010,12 +1010,12 @@ END <%perl> my $sth_i= $dbh->prepare(< prepare(<