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 3c37d6fc9f7833359394af29dd8bab35dbb7b81c..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
@@ -100,6 +102,8 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
 % };
 <& "lookup:formhidden", ours => $ours &>
 
+</div>
+<div class="results">
 <%perl>
 #========== results ==========
 
@@ -113,7 +117,7 @@ foreach my $warningf (@warningfs) {
 </%perl>
 
 % if (@islandids) {
-%      $someresults->('Relevant trades');
+%      $someresults->();
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,