{ # $Id: search.egw,v 1.14 1995/11/10 14:47:32 adam Exp $ proc buttons {setNo setMax startPos} { global sessionId global env global hist html "
\n" if {$setMax < [z39.$setNo resultCount]} { html {Next records} " | \n" } if {$startPos != "" && $startPos != "1"} { html {Previous records} " | \n" } html {New target} " | \n" html {New query} "\n
\n"
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
global sessionWait
global nextSetNo
global setNo
global hist
set setNo [lindex $sessionParms 0]
if {[wform menu1] != ""} {
set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
set hist($nextSetNo,host) $hist($setNo,host)
set setNo $nextSetNo
html "using host " $hist($setNo,host) "