X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=www%2Fquery.egw;h=3f0d25f5d2d6723af1225c2e7053813f4d8ef948;hb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;hp=e188c71d361d56e2dd4449fbf84700da32e4d6b4;hpb=a6f3beb071fe8c894ee6c846c86296c84f48e3d4;p=egate.git
diff --git a/www/query.egw b/www/query.egw
index e188c71..3f0d25f 100644
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,6 +1,12 @@
{
-# $Id: query.egw,v 1.2 1995/10/27 15:12:04 adam Exp $
+# $Id: query.egw,v 1.3 1995/10/27 17:30:15 adam Exp $
+proc fail-response {} {
+ global sessionWait
+ htmlr {Init fail
}
+ set sessionWait 0
+}
+
proc init-response {} {
global sessionWait
htmlr {Init ok
}
@@ -11,8 +17,9 @@ proc init-response {} {
set t $sessionParms
set databases [lindex $targets($t) 1]
- ir z39
set sessionWait 1
+ ir z39
+ z39 failback fail-response
z39 connect $t
z39 callback init-response
z39 init