</head>
<body>
{
-# $Id: mquery.egw,v 1.2 1995/11/08 16:14:32 adam Exp $
+# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
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>.