{ # $Id: search.egw,v 1.12 1995/11/09 15:24:36 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"
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
global sessionWait
global nextSetNo
global setNo
global hist
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
if {![info exists hist($nextSetNo,host)]} {
set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
set hist($nextSetNo,host) $hist($setNo,host)
}
set setNo $nextSetNo
html "using host " $hist($setNo,host) "