X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=cd40e6cb8928a38ab3bb44fba4bc293cd44a5744;hb=683d7344fb6dc8c5b98263e648e46087e5fe91f1;hp=53167aca883f43943d06b3acdd543dabe3ad7ac7;hpb=64f37d1c80bfd082dab4a11db206515890af6f44;p=ypp-sc-tools.main.git diff --git a/yarrg/web/query_route b/yarrg/web/query_route index 53167ac..cd40e6c 100644 --- a/yarrg/web/query_route +++ b/yarrg/web/query_route @@ -41,8 +41,10 @@ $routestring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$minprofitstring => ''; $someresults $emsgokorprint +$allargs %args> <%perl> @@ -50,9 +52,6 @@ my $emsg; my @warningfs; my @archipelagoes; my @islandids; -my ($max_volume, $max_mass); -my $lossperleaguepct; -my $capital; my $qa= \%ARGS; @@ -67,8 +66,6 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' }; %perl> -
-<& enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &> +<& enter_advrouteopts, qa=>$qa, dbh=>$dbh, + minprofit_needs_apply => $be_post, + routeparams=>$routeparams &> % } #---------- end of dropdowns, now common middle of page code ---------- - % my $ours= sub { $_[0] =~ -% m/^island|^archipelago|^routestring|^capacitystring|^lossperleague|^capitalstring|^[RT]/; +% m/^island|^archipelago|^routestring|^capacitystring|^lossperleague|^capitalstring|^minprofitstring|^[RT]/; % }; <& "lookup:formhidden", ours => $ours &> +