</head>
<body>
{
-# $Id: history.egw,v 1.3 1996/01/12 10:03:16 adam Exp $
+# $Id: history.egw,v 1.5 1996/01/26 15:50:06 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
+ set useIcons 1
+ button-europagate
+ button-new-target 0
+
z39history
- if {$useIcons} {
- html {<img src="/egwgif/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="/egwgif/button-new-target.gif" }
- html {alt="New Target" border=0></a>}
- } else {
- html {">New Target</a>} "\n"
- }
+ set useIcons 0
+ button-europagate
+ 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 "form: " [egw_form] " <br>\n"
}
</body></html>