{ # $Id: query.egw,v 1.40 1996/05/24 11:16:01 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl if {![info exists debug]} { session-lost egw_abort } } proc fail-response {} { global sessionWait set sessionWait -1 } proc ok-response {} { global sessionWait set sessionWait 1 } global setNo global nextSetNo global hist html {