{ # $Id: search.egw,v 1.11 1995/11/08 16:14:33 adam Exp $ proc buttons {setNo setMax startPos} { global sessionId global env global hist html "
\n" if {$setMax < [z39.$setNo resultCount]} { html { Next } "| \n" } if {$startPos != "" && $startPos != "1"} { html { Prev } "| \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) "