X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=1deeb83edd527dd3ccc2faeda13ae391e728dcce;hb=59393edc418d7062f6fb074a90d3b8e810c43772;hp=c45b56a06690f51173d15a918b17121c8dc647ea;hpb=b003b70daab49984677a1cfadced9da9ee9be19a;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index c45b56a..1deeb83 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,10 @@ my $emsg; my @warningfs; my @islandids; +my $destspec; + my $maxmaxdist=35; -my $maxcpu=90; +my $maxcpu=1; my $concur_lim=5; my $qa= \%ARGS; @@ -63,12 +70,15 @@ my $maxcountea=15; %perl> +