<html>
{
-# $Id: showfull.egw,v 1.19 1996/03/05 18:50:25 adam Exp $
+# $Id: showfull.egw,v 1.20 1996/03/07 12:46:09 adam Exp $
proc buttons {setNo tno no format count host after} {
global sessionId
html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
if {$tno > 0} {
- html {/msearch.egw/}
+ html {/msearch.egw/} $setNo
} else {
- html {/search.egw/}
+ html {/search.egw/} $setNo + $tno
}
- html $setNo + 1
- html + $hist($setNo,maxPresent)
+ html + 1 + $hist($setNo,maxPresent)
if {$useIcons} {
html {"><img src="/egwgif/button-result-set.gif" }
html {alt="Result Set" border=0></a>}
set setNo $sno
- if {$tno > 0} {
- set zz z39$tno
- set host $hist($setNo,$tno,host)
- } else {
- set zz z39
- set host $hist($setNo,host)
- }
+ set zz z39$tno
+ set host $hist($setNo,$tno,host)
html "<head><title> WWW/Z39.50 Gateway Record " [splitHostSpec $host]
html " </title>\n"