X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=aa118dd0dac4d32bcde87f6d2aefbe3ee3bb23c7;hb=a07016480861871e840184d31e07d555ed991831;hp=6877536b14b20068ecda828c8a72a7364c58ecc1;hpb=9326add47a682bbbe4ffc0b1408ea661994474dd;p=ypp-sc-tools.main.git diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 6877536..aa118dd 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,8 +57,11 @@ 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 }; @@ -62,12 +70,15 @@ my $maxcountea=15; %perl> +