</head>
<body>
{
-# $Id: mquery.egw,v 1.9 1996/01/09 16:16:47 adam Exp $
+# $Id: mquery.egw,v 1.10 1996/01/24 08:27:25 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
set phost {}
set i 0
- foreach t [lsort [wform target]] {
+ foreach t [lsort [egw_form target]] {
set host [lindex $t 0]
set base [lindex $t 1]
if {$host != $phost} {
}
if {$i == 0} {
html "<h2>No targets specified</h2></body></html>"
- wabort 1
+ egw_abort 1
}
set hist($setNo,0,host) $i
}
html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database)
html "<br>\n"
}
- html "form: " [wform] " <br>\n"
+ html "form: " [egw_form] " <br>\n"
html "target: " $host " <br>\n"
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"