projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Plus (+) characters automatically converted to space in forms.
[egate.git] / www / mquery.egw
diff --git a/www/mquery.egw b/www/mquery.egw
index 755b77a..de4b307 100644 (file)
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
+# $Id: mquery.egw,v 1.4 1995/11/10 14:47:31 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -14,35 +14,32 @@
     global nextSetNo
     global hist
 
-    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
-    foreach host $hosts {
-        set hist($setNo,$i,host) $host
-        set hist($setNo,$i,database) [lindex [lindex $targets($host) 1] 0]
-        incr i
+
+    html {<form action="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
+
+    set phost {}
+    set i 0
+    foreach t [lsort [wform target]] {
+        set host [lindex $t 0]
+        set base [lindex $t 1]
+        if {$host != $phost} {
+            set phost $host
+            incr i
+            set hist($setNo,$i,host) $host
+            set hist($setNo,$i,idAuthentication) [lindex $targets($host) 3]
+        }
+        lappend hist($setNo,$i,database) $base
     }
-    set host [lindex $hosts 0]
+    if {$i == 0} {
+        html "<h2>No targets specified</h2></body></html>"
+        wabort 1
     }
-    set hist($setNo,0,host) [expr $i - 1]
+    set hist($setNo,0,host) $i
 }
 <hr>
 <h3>Input your search criteria: </h3> <br>
@@ -97,6 +94,11 @@ and will continue to be so until the end of December 1995.</em>
     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
         html $e {: } $env($e) {<br>} \n
     }
+    set j $hist($setNo,0,host)
+    for {set i 1} {$i <= $j} {incr i} {
+        html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database) 
+        html "<br>\n"
+    }
     html "form: " [wform] " <br>\n"
     html "target: " $host " <br>\n"
     html "setNo: " $setNo " <br>\n"
Europgate