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=65f57f881531797d36bd7df6f1b39c3db331fce2;hp=bbeba5b522e59ce506ec29d9fb334fa01ae93334;hb=ce49620ef8a4e24daa206185138919bb58d35d37;hpb=f2f25e1201a92e62c3eeb35cdec0a62539e18cb5 diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index bbeba5b..65f57f8 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -36,23 +36,33 @@ <%args> $quri $dbh +$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, SayOptionalCapital => 1 }; +my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 }; my $maxdist; +my $maxcountea=15; %perl> @@ -62,6 +72,8 @@ my $maxdist; This feature is not available from the "drop down menus" interface. % } else { +% $prselector->('RouteSearchType'); +