{
# $Id: query.egw,v 1.37 1996/03/12 16:30:27 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
proc fail-response {} {
global sessionWait
set sessionWait -1
}
proc ok-response {} {
global sessionWait
set sessionWait 1
}
global setNo
global nextSetNo
global hist
set initSet [lindex $sessionParms 0]
set host [lindex $sessionParms 1]
set scanLine [lindex $sessionParms 2]
set scanTerm [lrange $sessionParms 3 end]
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
set setNo 1
}
if {[catch {set oldHost [z390 connect]}]} {
set oldHost ""
}
set hist($setNo,0,host) $host
set hist($setNo,0,idAuthentication) [lindex $targets($host) 3]
mkAssoc z390 $host
z390 callback ok-response
z390 failback fail-response
set thisHost [splitHostSpec $host]
if {[string compare $thisHost $oldHost]} {
catch {z390 disconnect}
set sessionWait 0
if {[catch {z390 connect $thisHost}]} {
displayError "Cannot connect to target ${thisHost}" {}
html "