{ # $Id: history.egw,v 1.3 1996/01/12 10:03:16 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl } z39history if {$useIcons} { html {
} } else { html {Europagate | } } html {
} } else { html {">New Target} "\n" } } { 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: " [wform] "
\n" }
}
} else {
html {Europagate | }
}
html {}
} else {
html {">New Target} "\n"
}
}
{
catch maintenance
if {!$debug} return
html "