X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb;hb=f04037c4c0e6680c6b54aa7b367d0a53c70f64f1;hp=fb32bcdd705017d6ad82f7da4a3344c55b44b47e;hpb=3ce667a2d3fd7c36f60da86bb59071264790e375;p=ypp-sc-tools.main.git
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index fb32bcd..a4e9a06 100644
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -64,8 +64,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}) {
@@ -77,6 +75,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,
@@ -100,6 +102,8 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
% };
<& "lookup:formhidden", ours => $ours &>
+
+
<%perl>
#========== results ==========
@@ -122,4 +126,5 @@ foreach my $warningf (@warningfs) {
routeparams => $routeparams
&>
% }
+