Attempt to inform user if session has really terminated.

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

index f17cc58..74ad296 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -1,13 +1,13 @@
  <html>
-<head>
-<title> WWW/Z39.50 Gateway Query Form</title>
-</head>
-<body>
  {
-# $Id: query.egw,v 1.38 1996/03/13 14:07:30 adam Exp $
+# $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 {} {
@@ -24,6 +24,8 @@ proc ok-response {} {
      global nextSetNo
      global hist
  
+    html {<head><title> WWW/Z39.50 Gateway Query Form</title></head><body>}
+
      set initSet [lindex $sessionParms 0]
      set host [lindex $sessionParms 1]
      set scanLine [lindex $sessionParms 2]