X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=cd40e6cb8928a38ab3bb44fba4bc293cd44a5744;hb=9595706c6d171b4efc94932002e2ff7343b18d42;hp=2162e8a8bbf203c7336c561d217374c378d11043;hpb=991b38b009b25da6992e9d984cd74d0e47c3c0b6;p=ypp-sc-tools.db-live.git
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 2162e8a..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>
-
Specify route
-
% # Sadly we need to do this rather hacky thing to make it be a POST
% # form if the user has already selected some thing(s)
% if (!$qa->{Dropdowns}) {
@@ -80,6 +77,10 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
% } (0..$qa->{Dropdowns}-1));
% }
+
+
+
Specify route
+
% $prselector->('ShowStalls');
<& enter_route, qa => $qa, dbh => $dbh, emsg_r => \$emsg,
@@ -90,62 +91,25 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
&>
%#---------- textboxes, user enters details as strings ----------
+% my $routeparams= { EmsgRef => \$emsg };
% if (!$qa->{Dropdowns}) {
-Advanced options - you may leave these blank:
+