{
# $Id: showfull.egw,v 1.3 1995/11/06 17:44:21 adam Exp $
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 "Record \#$no out of $total
\n"
}
{
if {$no < [z39.$setNo resultCount]} {
html { Next } "| \n"
}
if {$no > 0} {
html { Prev } "| \n"
}
html { Result } "| \n"
html { New target } " | \n"
html { New query }
}
{
z39present $setNo $no $no display-full
# display-full z39.$sno $no
}
{
if {$no < [z39.$setNo resultCount]} {
html { Next } "| \n"
}
if {$no > 0} {
html { Prev } "| \n"
}
html { Result } "| \n"
html { New target } " | \n"
html { New query }
}