{ # $Id: search.egw,v 1.10 1995/11/08 12:42:17 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
set oldHost $hist($setNo,host)
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
if {![info exists hist($nextSetNo,host)]} {
set hist($nextSetNo,host) $oldHost
}
set setNo $nextSetNo
html "using host " $hist($setNo,host) "