#
-# $Id: z39util.tcl,v 1.47 1996/09/03 14:06:43 adam Exp $
+# $Id: z39util.tcl,v 1.48 1997/02/24 10:05:20 adam Exp $
#
proc saveState {} {
uplevel #0 {
}
egw_log debug "old=$oldHost this=$thisHost"
z39$i idAuthentication $hist($setNo,$i,idAuthentication)
- html "Connecting to target " $thisHost " <br>\n"
set zstatus($i) -1
if {![catch {z39$i connect $thisHost}]} {
incr zleft