X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=478b622d8dcef39acb7933de2231b0886e6539de;hp=36e6055b898610a3ccb2910e641203f9923bbddd;hb=3276ebe915a34abf34cf9639e83c85b8adac5245;hpb=fbe374c3592808f9b3f105ec0726b26ada6c0ea0;ds=sidebyside diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 36e6055..478b622 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,7 +57,9 @@ my $emsg; my @warningfs; my @islandids; -my $maxmaxdist=35; +my $destspec; + +my @maxmaxdist= qw(100 100 100); my $maxcpu=90; my $concur_lim=5; @@ -63,12 +70,18 @@ my $maxcountea=15; %perl> +