{
# $Id: query.egw,v 1.4 1995/10/30 17:35:17 adam Exp $
proc fail-response {} {
global sessionWait
set sessionWait -1
}
proc init-response {} {
global sessionWait
set sessionWait 1
}
set t $sessionParms
set databases [lindex $targets($t) 1]
set sessionWait 0
ir z39
z39 failback fail-response
if {[catch {z39 connect $t}]} {
htmlr "Cannot connect to target $t
"
htmlr "