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=3bdc7f77f09d0765f079d77534ac0e4f12ab8d33;hp=9c583b8899338489228249fef319dc360e7d3883;hb=f8abaac789a49c036e513127ac2051c3c9fe0f5e;hpb=3dbb2f33eae3a509123ffc99e48e35f858a8292a diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 9c583b8..3bdc7f7 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -42,6 +42,7 @@ $islandstring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$minprofitstring => ''; $distance => ''; $prselector $someresults @@ -56,6 +57,8 @@ my $emsg; my @warningfs; my @islandids; +my $destspec; + my $maxmaxdist=35; my $maxcpu=90; my $concur_lim=5; @@ -83,21 +86,44 @@ This feature is not available from the "drop down menus" interface. islandids_r => \@islandids, archipelagoes_r => undef &> +% my $searchtype= $ARGS{RouteSearchType}; +% if ($searchtype == 0) { +% $destspec= 'any'; +% } elsif ($searchtype == 1) { +% $destspec= 'circ'; +% } elsif ($searchtype == 2) { + +Destination (one island only): +<& qtextstring, qa => $qa, dbh => $dbh, emsgstore => \$emsg, + thingstring => 'deststring', + prefix => 'ds', boxopts => 'size=40', + onresults => sub { +print STDERR "ONRESULTS @_\n"; + return unless @_; + my ($canonname, $island, $arch) = @{ $_[0] }; + die unless defined $island; + $destspec= $island; + } + &> + +% } else { +% die "$destspec ?"; +% } + <&| enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
-Please try a search with a smaller minimum distance, or place more +Please try a search with a smaller maximum distance, or place more restrictions on the route. + <%perl> return; } if ($concur_fail) { %perl> -
If you submitted several searches and gave up on them (eg by hitting -`back' or `stop' in your browser), be aware that that doesn't +"back" or "stop" in your browser), be aware that that doesn't generally stop the search process at the server end. So it's best to avoid asking for large searches that you're not sure about. @@ -265,6 +293,7 @@ avoid asking for large searches that you're not sure about. Otherwise, please try later. Searches are limited to <% $maxcpu |h %> seconds of CPU time so more processing resources should be available soon. + <%perl> return; } @@ -345,7 +374,7 @@ $someresults->();