First search request/response that works.

[egate.git] / www / query.egw
diff --git a/www/query.egw b/www/query.egw

index e188c71..3f0d25f 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,6 +1,12 @@
  <html>
  {
-# $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<br>}
+    set sessionWait 0
+}
+
  proc init-response {} {
      global sessionWait
      htmlr {Init ok <br>}
@@ -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