X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=6cf098ed82c63c8cfce1fe93fe6e889460415675;hp=b6d543fae1c7c122c72485a36c5bf30146f4505b;hb=85bb4e4331aa1d2b1c2fd0120fd8c0ad08d6ed4a;hpb=757318e3924059c13338aada3b29d668c20f6c36 diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index b6d543f..6cf098e 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,22 +57,31 @@ my $emsg; my @warningfs; my @islandids; -my $maxmaxdist=35; +my $destspec; + +my @maxmaxdist= qw(35 35 60); my $maxcpu=90; +my $concur_lim=5; my $qa= \%ARGS; my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 }; my $maxdist; -my $maxcountea=10; +my $maxcountea=15; %perl> +