Minor changes.

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

index 27e6e32..755b77a 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: mquery.egw,v 1.1 1995/11/07 14:56:58 adam Exp $
+# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -14,13 +14,24 @@
      global nextSetNo
      global hist
  
-    html {<form action="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<form action="http:} $env(SCRIPT_NAME)
      html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
  
      if {[catch {set setNo $nextSetNo}]} {
          set nextSetNo 1
          set setNo 1
      }
+    if {1} {
+    set i 1
+    foreach host [array names targets] {
+        set databases [wform target$host]
+        if {$databases == ""} continue
+        html "host=$host, $databases <br>\n"
+        set hist($setNo,$i,host) $host
+        set hist($setNo,$i,database) $databases
+        incr i
+    }
+    } else {
      set hosts [wform target]
      html "hosts=$hosts <br>\n"
      set i 1
@@ -29,8 +40,9 @@
          set hist($setNo,$i,database) [lindex [lindex $targets($host) 1] 0]
          incr i
      }
-    set hist($setNo,0,host) [expr $i - 1]
      set host [lindex $hosts 0]
+    }
+    set hist($setNo,0,host) [expr $i - 1]
  }
  <hr>
  <h3>Input your search criteria: </h3> <br>
@@ -64,7 +76,7 @@ Records are shown in:
  </select>
  <br>
  <p>
-<input type="submit" value="Send Query">
+<input type=submit value="Search"><input type=reset value="Reset">
  </form>
  <hr>
  This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
@@ -74,7 +86,7 @@ and will continue to be so until the end of December 1995.</em>
  <hr>
  
  {
-    html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+    html {<a href="http:} $env(SCRIPT_NAME)
      html / $sessionId {/mtargets.egw"> New target </a>}
  }
  {