</head>
<body>
{
-# $Id: mquery.egw,v 1.8 1996/01/08 08:42:13 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
}
{
global useIcons
if {$useIcons} {
- html {<img src="/gif/button-egw.gif">}
+ html {<img src="/egwgif/button-egw.gif">}
}
html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/mtargets.egw}
if {$useIcons} {
- html {"><img src="/gif/button-new-target.gif" border=0></a>}
+ html {"><img src="/egwgif/button-new-target.gif" border=0></a>}
} else {
html {"> New target </a>}
}
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"