From 70ce19058c58f923f4957344502177202c7ee733 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 10 Jan 2010 15:22:54 +0000 Subject: [PATCH] Bigger limit for specific-destination route searches --- yarrg/web/query_routesearch | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 1bbaf9f..6cf098e 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -59,7 +59,7 @@ my @islandids; my $destspec; -my $maxmaxdist=35; +my @maxmaxdist= qw(35 35 60); my $maxcpu=90; my $concur_lim=5; @@ -73,6 +73,9 @@ my $maxcountea=15;

Find most profitable routes and trades

+% my $searchtype= $ARGS{RouteSearchType}; +% my $searchtype_show; +% % if ($qa->{Dropdowns}) { This feature is not available from the "drop down menus" interface. % } else { @@ -86,12 +89,14 @@ 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'; +% $searchtype_show= 'open-ended'; % } elsif ($searchtype == 1) { % $destspec= 'circ'; +% $searchtype_show= 'circular'; % } elsif ($searchtype == 2) { +% $searchtype_show= 'specific-destination'; Destination (one island only): <& qtextstring, qa => $qa, dbh => $dbh, emsgstore => \$emsg, @@ -133,9 +138,11 @@ print STDERR "ONRESULTS @_\n";
<%perl> +my $maxmaxdist= $maxmaxdist[$searchtype]; if (!$emsg && $maxdist > $maxmaxdist) { - $emsg= "Searching for routes of more than $maxmaxdist leagues is not". - " supported, sorry."; + $emsg= "Searching for $searchtype_show routes". + " of more than $maxmaxdist leagues is not". + " supported, sorry."; } print("
"), return -- 2.30.2