<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"