X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb;hb=59316f0dcddd4e5d15e47dfde36f513e1685c4ae;hp=3c37d6fc9f7833359394af29dd8bab35dbb7b81c;hpb=20bea992a857ea1f03f19d81f7164b113a560e83;p=ypp-sc-tools.db-live.git
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 3c37d6f..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 ==========
@@ -113,7 +117,7 @@ foreach my $warningf (@warningfs) {
%perl>
% if (@islandids) {
-% $someresults->('Relevant trades');
+% $someresults->();
<& routetrade,
dbh => $dbh,
islandids => \@islandids,
@@ -122,4 +126,5 @@ foreach my $warningf (@warningfs) {
routeparams => $routeparams
&>
% }
+