X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=9c583b8899338489228249fef319dc360e7d3883;hb=ad29b01fe6470a4b3bb108a8f485657927175e24;hp=53128f6483d255723b1ec4df69b2617dbde54387;hpb=5df1a21a8f7ad18ade3a97b9ccf26bdcf335edd2;p=ypp-sc-tools.web-live.git diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 53128f6..9c583b8 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -36,28 +36,46 @@ <%args> $quri $dbh +$baseqf +$queryqf +$islandstring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$distance => ''; +$prselector +$someresults $emsgokorprint +$allargs %args> <%perl> +use BSD::Resource; + my $emsg; my @warningfs; my @islandids; +my $maxmaxdist=35; +my $maxcpu=90; +my $concur_lim=5; + my $qa= \%ARGS; -my $routeparams= { EmsgRef => \$emsg }; +my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 }; my $maxdist; +my $maxcountea=15; + %perl> +