X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fquery.egw;h=74ad296851e55ec8458970dee32f9af055eedf9c;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=c1f3b4c3fdaf39b2100495ac97191d498bb93feb;hpb=d66a4b9debb168d9a03368429bcc933c57553c74;p=egate.git diff --git a/www/query.egw b/www/query.egw index c1f3b4c..74ad296 100644 --- a/www/query.egw +++ b/www/query.egw @@ -1,90 +1,238 @@ { -# $Id: query.egw,v 1.1 1995/10/23 17:04:16 adam Exp $ - source /usr/local/etc/httpd/conf/ztargets.conf - set tmp [expr 1 + [string first / $sessionParms]] - set t [string range $sessionParms $tmp end] - set databases [lindex $targets($t) 1] +# $Id: query.egw,v 1.39 1996/03/14 11:50:47 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 } -
-