Allow downloading of database tree source code via dictup CGI scripts

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

index 56b34fc36fb09d228cb4d9598f5c138a507ef444..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,6 +257,7 @@ $debug => 0
  </%args>
  
  % if (!printable($m)) {
+</div>
  <hr>
  % }
  
@@ -272,15 +275,14 @@ $debug => 0
      }
   &>
  
-<p>
-
  %#---------- debugging and epilogue ----------
  
  % if ($debug) {
-<p>
+<div class="results">
  <pre id="debug_log">
  Debug log:
  </pre>
+</div>
  % }
  
  <&| script &>