X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_route;h=a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb;hp=7871c3d54dbb6eed20e97fcfcfb99fb86a127610;hb=eb4dd353926d8d5f38ea442ee172ce0b2bb5925e;hpb=5df1a21a8f7ad18ade3a97b9ccf26bdcf335edd2 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' }; -

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) { % if (@islandids) { -% $someresults->('Relevant trades'); +% $someresults->(); <& routetrade, dbh => $dbh, islandids => \@islandids, @@ -125,4 +126,5 @@ foreach my $warningf (@warningfs) { routeparams => $routeparams &> % } +