WIP colouring in

[ypp-sc-tools.web-live.git] / yarrg / web / query_route

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 7871c3d54dbb6eed20e97fcfcfb99fb86a127610..eeb4331eb067b7645dadb2506995d0a4323d600b 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -64,6 +64,8 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
 
 </%perl>
 
+<div class="query">
+
 <h1>Specify route</h1>
 
 % # Sadly we need to do this rather hacky thing to make it be a POST
@@ -90,9 +92,6 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
 % my $routeparams= { EmsgRef => \$emsg };
 % if (!$qa->{Dropdowns}) {
 
-<strong>Advanced options - you may leave these blank:</strong>
-<p>
-
 <& 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 &>
 
+</div>
+<div class="results">
 <%perl>
 #========== results ==========
 
@@ -116,7 +117,7 @@ foreach my $warningf (@warningfs) {
 </%perl>
 
 % if (@islandids) {
-%      $someresults->('Relevant trades');
+%      $someresults->();
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,