Attempt to inform user if session has really terminated.

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

index fd25d08..88969cd 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
  <html>
  {
-# $Id: search.egw,v 1.38 1996/03/13 14:07:31 adam Exp $
+# $Id: search.egw,v 1.39 1996/03/14 11:50:48 adam Exp $
  
  proc start-scan {scanNo targetNo cache dir initSet} {
      global sessionId
@@ -170,6 +170,10 @@ proc start-scan {scanNo targetNo cache dir initSet} {
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
+        if {![info exists debug]} {
+            session-lost
+            egw_abort
+        }
      }
      global sessionWait
      global nextSetNo