{
# $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 {
WWW/Z39.50 Gateway History}
set useIcons 1
button-main
button-new-target
z39history
set useIcons 0
button-main
button-new-target
catch maintenance
if {!$debug} return
html "\n"
html "
Debug information
\n"
html "sessionId: $sessionId \n"
html "sessionParms: $sessionParms \n"
foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
html $e {: } $env($e) { } \n
}
html "form: " [egw_form] " \n"
}