X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=1828f374bc5b97e90546bc417d0b7bd5940d61f6;hb=7f2e815e66f91398e28e5aacbe58def8b84fd6b0;hp=9c583b8899338489228249fef319dc360e7d3883;hpb=6a4d494e0e31f95bdd6dd54b814e8b2381ad95b2;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 9c583b8..1828f37 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 &>
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. @@ -345,7 +372,7 @@ $someresults->();