Incorporated WAIS functionality.

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

index 1d339f2..fec5af1 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
  </head>
  <body>
  {
-# $Id: query.egw,v 1.33 1996/02/21 16:57:38 adam Exp $
+# $Id: query.egw,v 1.34 1996/02/29 15:41:39 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
@@ -40,9 +40,7 @@ proc ok-response {} {
      set hist($setNo,host) $host
      set hist($setNo,idAuthentication) [lindex $targets($host) 3]
  
-    if {[catch {z39 failback fail-response}]} {
-        ir z39
-    }
+    mkAssoc z39 $host
  
      z39 callback ok-response
      z39 failback fail-response
@@ -77,7 +75,7 @@ proc ok-response {} {
              html "</body></html>\n"
              egw_abort
          }
-        if {[catch {egw_wait sessionWait 60}]} {
+        if {$sessionWait == 0 && [catch {egw_wait sessionWait 60}]} {
              displayError "Cannot initialize target ${thisHost}" {}
              html "</body></html>\n"
              egw_abort