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

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

index 4fc8f45..af33dda 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: mquery.egw,v 1.10 1996/01/24 08:27:25 adam Exp $
+# $Id: mquery.egw,v 1.11 1996/01/26 15:50:07 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -20,6 +20,10 @@
          set setNo 1
      }
  
+    set useIcons 1
+    button-europagate
+    button-new-target 0
+
      html {<form action="http:} $env(SCRIPT_NAME)
      html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
  
@@ -36,14 +40,23 @@
          }
          lappend hist($setNo,$i,database) $base
      }
+    set oSetNo [lindex $sessionParms 0]
+    if {$i == 0 && $oSetNo != ""} {
+        for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
+            set hist($setNo,$i,host) $hist($oSetNo,$i,host)
+            set hist($setNo,$i,idAuthentication) \
+                $hist($oSetNo,$i,idAuthentication)
+            set hist($setNo,$i,database) $hist($oSetNo,$i,database)
+        }
+        incr i -1
+    }
      if {$i == 0} {
          html "<h2>No targets specified</h2></body></html>"
          egw_abort 1
      }
      set hist($setNo,0,host) $i
-}
-<h2>Input your search criteria: </h2><br>
-{
+
+    html "Input your search criteria:<br>\n"
      set fields [lindex $targets($host) 2]
      for {set no 1} {$no < 4} {incr no} {
          html {<select name="menu} $no {">} \n
@@ -61,28 +74,16 @@
          }
          html "<br>\n"
      }
-}
-<input type=submit value="Search"><input type=reset value="Reset">
-<br>
-{
+    html {<input type=submit value="Search"><input type=reset value="Reset">}
+    html "<br>\n"
      html {Number of records to display in the result set list: }
      html {<input type="text" name="hits" value="}
      html 10
-    html {" size=3>}
-}
-</form>
-{
-    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>}
-    }
+    html {" size=3></form>}
+    
+    set useIcons 0
+    button-europagate
+    button-new-target 0
  }
  {
      catch maintenance