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

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

index 08f5ea6..2ca5eb5 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: msearch.egw,v 1.12 1996/01/24 08:27:26 adam Exp $
+# $Id: msearch.egw,v 1.13 1996/01/26 15:50:07 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -13,6 +13,7 @@
  
      html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
      html "</head><body>\n"
+
      set setNo [lindex $sessionParms 0]
  
      if {[egw_form menu1] != ""} {
@@ -34,6 +35,13 @@
              set hist($setNo,maxPresent) 30
          }
      }
+
+    set useIcons 1
+    button-europagate
+    button-new-query 1 $setNo
+    button-new-target 0
+
+    html "<br>\n"
      z39msearch $setNo 1 B
  
      html "<dl>\n"
@@ -58,28 +66,11 @@
          html "\n"
      }
      html "</dl>\n"
-}
  
-{
-    global useIcons
-
-    if {$useIcons} {
-        html {<img src="/egwgif/button-egw.gif">}
-    }
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mtargets.egw}
-    if {$useIcons} {
-       html {"><img src="/egwgif/button-new-target.gif" border=0></a>}
-    } else {
-       html {"> New target </a>} " | \n"
-    }
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mquery.egw/} $setNo
-    if {$useIcons} {
-        html {"><img src="/egwgif/button-new-query.gif" border=0></a>}
-    } else {
-        html {"> New query </a>}
-    }
+    set useIcons 0
+    button-europagate
+    button-new-query 1 $setNo
+    button-new-target 0
  }
  
  {