X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb;hb=01bc181a77c9f44e675a4f8d1be33e2e3c252a19;hp=7871c3d54dbb6eed20e97fcfcfb99fb86a127610;hpb=5df1a21a8f7ad18ade3a97b9ccf26bdcf335edd2;p=ypp-sc-tools.main.git
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 7871c3d..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,
@@ -90,9 +92,6 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
% my $routeparams= { EmsgRef => \$emsg };
% if (!$qa->{Dropdowns}) {
-
Advanced options - you may leave these blank:
-
-
<& enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
% } #---------- end of dropdowns, now common middle of page code ----------
@@ -103,6 +102,8 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
% };
<& "lookup:formhidden", ours => $ours &>
+
+
<%perl>
#========== results ==========
@@ -116,7 +117,7 @@ foreach my $warningf (@warningfs) {
%perl>
% if (@islandids) {
-% $someresults->('Relevant trades');
+% $someresults->();
<& routetrade,
dbh => $dbh,
islandids => \@islandids,
@@ -125,4 +126,5 @@ foreach my $warningf (@warningfs) {
routeparams => $routeparams
&>
% }
+