A lot of work on scan. Tables used to display scan terms and hits.

[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw

index 632f35e..f68a696 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: query.egw,v 1.31 1996/01/24 16:59:28 adam Exp $
+# $Id: query.egw,v 1.32 1996/01/26 15:50:08 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -44,7 +44,6 @@ proc ok-response {} {
          ir z39
      }
  
-    html "<h2>Search in " [lindex $targets($host) 0] "</h2><br>\n"
      z39 callback ok-response
      z39 failback fail-response
      set thisHost [splitHostSpec $host]
@@ -96,6 +95,19 @@ proc ok-response {} {
              egw_abort
          }
      }
+
+    set useIcons 1
+    button-europagate
+    button-new-target 1
+    if {[lsearch [z39 options] scan] >= 0} {
+        button-scan-window 1 $setNo
+    }
+    button-view-history 0 
+
+    html "<h2>" [lindex $targets($host) 0] "</h2><br>\n"
+
+    html [lindex $targets($host) 4] "<br>\n"
+
      set databases [lindex $targets($host) 1]
  
      if {$initSet == ""} {
@@ -192,15 +204,12 @@ proc ok-response {} {
          html 20
      }
      html {" size=4>}
-}
-</form>
-<p>
+    html "</form>\n"
+    html "<p>\n"
  
-{
+    set useIcons 0
      button-europagate
-
      button-new-target 1
-
      if {[lsearch [z39 options] scan] >= 0} {
          button-scan-window 1 $setNo
      }
@@ -228,5 +237,3 @@ proc ok-response {} {
      html "scanTerm: " $scanTerm " <br>\n"
  }
  </body></html>
-
-