X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=1828f374bc5b97e90546bc417d0b7bd5940d61f6;hp=9accc54bbf2dbf31987948bc2e8e2606457f2ba9;hb=f62749dec2d8b67a9b4b4a910e1159907654d426;hpb=2abd3537af0c697684bfb97895f230372101329d diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 9accc54..1828f37 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -36,13 +36,18 @@ <%args> $quri $dbh +$baseqf +$queryqf $islandstring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$minprofitstring => ''; $distance => ''; +$prselector $someresults $emsgokorprint +$allargs %args> <%perl> @@ -52,18 +57,28 @@ my $emsg; my @warningfs; my @islandids; +my $destspec; + +my $maxmaxdist=35; +my $maxcpu=90; +my $concur_lim=5; + my $qa= \%ARGS; my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 }; my $maxdist; +my $maxcountea=15; %perl> +