{
# $Id: history.egw,v 1.1 1996/01/03 15:19:36 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"
html "target: " $host "
\n"
html "databases: " $databases "
\n"
html "setNo: " $setNo "
\n"
html "nextSetNo: " $nextSetNo "
\n"
html "initSet: " $initSet "
\n"
html "scanLine: " $scanLine "
\n"
html "scanTerm: " $scanTerm "
\n"
}