{
# $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"
}