<html>
{
-# $Id: showfull.egw,v 1.19 1996/03/05 18:50:25 adam Exp $
+# $Id: showfull.egw,v 1.21 1996/03/11 17:40:48 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 "<head><title> WWW/Z39.50 Gateway Record " [lindex $targets($host) 0]
html " </title>\n"
html "</head><body>\n"
set useIcons 1
buttons $setNo $tno $no $format $count $host 0
- html "<h3>Record \#$no out of $count </h3><br>\n"
+ html "<h3>Record \#$no out of $count in " [lindex $targets($host) 0]
+ html "</h3><br>\n"
eval {z39present $setNo $tno $no $no display-$format F}
set useIcons 0