X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=3c769a92f4fc6390851f22bb8c4a92e25d3d715c;hp=62c2aab9ee55c664f0c19f4bf992cafcc009e552;hb=43454422b2df5e0dcfe144fcb871a2b6f9c1a3d0;hpb=872e647cac241531e4599c8b8b330d8772020253;ds=sidebyside
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 62c2aab..3c769a9 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,59 +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:
+