chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix ISO quote lossage to be HTML 3.2 compatible
[ypp-sc-tools.db-live.git]
/
yarrg
/
web
/
query_route
diff --git
a/yarrg/web/query_route
b/yarrg/web/query_route
index fb32bcdd705017d6ad82f7da4a3344c55b44b47e..a4e9a067e1b4c40b9c31215ad1bcc9abaee3f2fb 100644
(file)
--- a/
yarrg/web/query_route
+++ b/
yarrg/web/query_route
@@
-64,8
+64,6
@@
my $goupdate= sub { $be_post ? 'Update' : 'Go' };
</%perl>
</%perl>
-<h1>Specify route</h1>
-
% # 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}) {
% # 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));
% }
% } (0..$qa->{Dropdowns}-1));
% }
+<div class="query">
+
+<h1>Specify route</h1>
+
% $prselector->('ShowStalls');
<& enter_route, qa => $qa, dbh => $dbh, emsg_r => \$emsg,
% $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 &>
% };
<& "lookup:formhidden", ours => $ours &>
+</div>
+<div class="results">
<%perl>
#========== results ==========
<%perl>
#========== results ==========
@@
-122,4
+126,5
@@
foreach my $warningf (@warningfs) {
routeparams => $routeparams
&>
% }
routeparams => $routeparams
&>
% }
+</div>
</form>
</form>