Attempt to inform user if session has really terminated.

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

index f3d0bdf..f9360d3 100644 (file)
--- a/www/history.egw
+++ b/www/history.egw
@@ -1,32 +1,27 @@
  <html>
-<head>
-<title> WWW/Z39.50 Gateway History</title>
-</head>
-<body>
  {
-# $Id: history.egw,v 1.4 1996/01/24 08:27:25 adam Exp $
+# $Id: history.egw,v 1.8 1996/03/14 11:50:44 adam Exp $
  
      if {[info commands saveState] == ""} {
          source z39util.tcl
+        if {![info exists debug]} {
+            session-lost
+            egw_abort
+        }
      }
  
+    html {<head><title> WWW/Z39.50 Gateway History</title></head><body>}
+
+    set useIcons 1
+    button-main
+    button-new-target
+
      z39history
  
-    if {$useIcons} {
-        html {<img src="/egwgif/button-egw.gif" alt="Europagate" border=0></a>}
-    } else {
-        html {Europagate | }
-    }
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/targets.egw}
-    if {$useIcons} {
-        html {"><img src="/egwgif/button-new-target.gif" }
-       html {alt="New Target" border=0></a>}
-    } else {
-        html {">New Target</a>} "\n"
-    }
-}
-{
+    set useIcons 0
+    button-main
+    button-new-target
+
      catch maintenance
      if {!$debug} return
      html "<hr>\n"