</head>
<body>
{
-# $Id: query.egw,v 1.32 1996/01/26 15:50:08 adam Exp $
+# $Id: query.egw,v 1.33 1996/02/21 16:57:38 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
z39 callback ok-response
z39 failback fail-response
set thisHost [splitHostSpec $host]
- if {$thisHost != $oldHost} {
+ if {[string compare $thisHost $oldHost]} {
catch {z39 disconnect}
set sessionWait 0
#
-# $Id: z39util.tcl,v 1.32 1996/02/21 14:58:35 adam Exp $
+# $Id: z39util.tcl,v 1.33 1996/02/21 16:57:39 adam Exp $
#
proc saveState {} {
uplevel #0 {
$zz callback ok-response
$zz failback fail-response
set thisHost [splitHostSpec $host]
- if {$oldHost != $thisHost} {
+ if {[string compare $oldHost $thisHost]} {
catch [list $zz disconnect]
set sessionWait 0
$zz callback ok-response
$zz failback fail-response
set thisHost [splitHostSpec $host]
- if {$oldHost != $thisHost} {
+ if {[string compare $oldHost $thisHost]} {
catch [list $zz disconnect]
set sessionWait 0
}
set oldHost [z39$i connect]
set thisHost [splitHostSpec $host]
- if {$oldHost != $thisHost} {
+ if {[string compare $oldHost $thisHost]} {
catch {z39$i disconnect}
}
z39$i callback [list connect-m-response $i]
set oldHost [z39$i connect]
set host $hist($setNo,$i,host)
set thisHost [splitHostSpec $host]
- if {$oldHost == $thisHost} {
+ if {![string compare $oldhost $thisHost]} {
continue
}
egw_log debug "old=$oldHost this=$thisHost"