<html>
{
-# $Id: showfull.egw,v 1.22 1996/03/12 16:30:28 adam Exp $
+# $Id: showfull.egw,v 1.24 1996/03/14 11:50:49 adam Exp $
proc buttons {setNo tno no format count host after} {
global sessionId
}
}
- if {!$useIcons} {
- html "\n | "
- }
- html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
- if {$tno > 0} {
- html {/msearch.egw/} $setNo
- } else {
- html {/search.egw/} $setNo + $tno
- }
- html + 1 + $hist($setNo,maxPresent)
- if {$useIcons} {
- html {"><img src="/egwgif/button-result-set.gif" }
- html {alt="Result Set" border=0></a>}
- } else {
- html {">Result Set</a>}
- }
-
- button-new-query 1 $setNo
- button-new-target 0
+ button-result-set $setNo $tno
+ button-new-query $setNo
+ button-new-target
html "<p>\n"
}
if {[info commands saveState] == ""} {
source z39util.tcl
+ if {![info exists debug]} {
+ session-lost
+ egw_abort
+ }
}
global setNo