</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
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
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>
</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>.
<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>}
}
{