Merge branch 'wip.commodclass'

[ypp-sc-tools.db-test.git] / yarrg / web / lookup
diff --git a/yarrg/web/lookup b/yarrg/web/lookup

index a2ccc8de0a80df6b3659fafc95bdc41976888deb..365ed58129407277626411e60f96b8bc8fe2ba1e 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -128,12 +128,13 @@ $ours
  
  <html lang="en"><head><title><% ucfirst $ahtml{Query} %> - YARRG</title>
  <style type="text/css">
-body {
-  color: #000000;
-  background: #ffffff;
-}
-tr.datarow0 { background: #e3e3e3; }
-tr.datarow1 { background: #ffffff; }
+<& style.css &>
+  body { color: #000000; background: #c5c7ae; }
+  div.query { background: #d7d8b3; padding: 1em; }
+  div.results { padding: 1em; }
+  table.data { background: #b5b686; }
+  tr.datarow0 { background: #e3e3e3; }
+  tr.datarow1 { background: #ffffff; }
  </style>
  <&| script &>
    function register_onload(f) {
@@ -147,6 +148,7 @@ tr.datarow1 { background: #ffffff; }
  </head><body>
  
  % if (!printable($m)) {
+<div class="navoptbar">
  <a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
   Yet Another Revenue Research Gatherer
  |
@@ -255,11 +257,13 @@ $debug => 0
  </%args>
  
  % if (!printable($m)) {
+</div>
  <hr>
  % }
  
  <& "query_$styles{Query}", %baseqf, %queryqf, %styles,
-    quri => $quri, dbh => $dbh, queryqf => \%queryqf, allargs => \%ARGS,
+    quri => $quri, dbh => $dbh,
+    baseqf => \%baseqf, queryqf => \%queryqf, allargs => \%ARGS,
      prselector => $prselector,
      someresults => $someresults,
      emsgokorprint => sub {
@@ -271,15 +275,14 @@ $debug => 0
      }
   &>
  
-<p>
-
  %#---------- debugging and epilogue ----------
  
  % if ($debug) {
-<p>
+<div class="results">
  <pre id="debug_log">
  Debug log:
  </pre>
+</div>
  % }
  
  <&| script &>