</head>
<body>
{
-# $Id: history.egw,v 1.1 1996/01/03 15:19:36 adam Exp $
+# $Id: history.egw,v 1.6 1996/03/12 16:30:26 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
+ set useIcons 1
+ button-main
+ button-new-target 0
+
z39history
- if {$useIcons} {
- html {<img src="/gif/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="/gif/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 0
}
{
catch maintenance
foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
html $e {: } $env($e) {<br>} \n
}
- html "form: " [wform] " <br>\n"
- html "target: " $host " <br>\n"
- html "databases: " $databases " <br>\n"
- html "setNo: " $setNo " <br>\n"
- html "nextSetNo: " $nextSetNo " <br>\n"
- html "initSet: " $initSet " <br>\n"
- html "scanLine: " $scanLine " <br>\n"
- html "scanTerm: " $scanTerm " <br>\n"
+ html "form: " [egw_form] " <br>\n"
}
</body></html>