Encode entities in linkqf from routetrade

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

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 8d8b48b4edf0b8bbc807403d26b12b1470c2ca21..f339caaab029d1282dcbc0488f97ef521218f8e4 100644 (file)
--- 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 5), @opts,
                qw( --cpxlp /dev/stdin -o /dev/stdout));
        if ($qa->{'debug'}) {
                print "<h3>@opts</h3>\n<pre>\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) . <<END;
 <$td>$collectdeliver