{
# $Id: showfull.egw,v 1.5 1995/11/08 12:42:17 adam Exp $
proc buttons {setNo no} {
global sessionId
global env
global hist
html "
\n"
if {$no < [z39.$setNo resultCount]} {
html { Next } "| \n"
}
if {$no > 1} {
html { Prev } "| \n"
}
html { Result } "| \n"
html { New target } " | \n"
html { New query } "
\n"
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
html "
WWW/Z39.50 Gateway Record " $host " \n"
html "\n"
global setNo
global hist
set sno [lindex $sessionParms 0]
set no [lindex $sessionParms 1]
set setNo $sno
if {[z39search $setNo 0] != "1"} {
return
}
set total [z39.$setNo resultCount]
html "