{ # $Id: search.egw,v 1.18 1995/12/20 16:31:31 adam Exp $ proc buttons {setNo setMax startPos after} { global sessionId global useIcons global env global hist if {!$useIcons && $after && $setMax < [z39.$setNo resultCount]} { html "
\n" html "
\n" if {$useIcons} { html {} } if {$setMax < [z39.$setNo resultCount]} { html {} } else { html {">Next records} " | \n" } } if {$startPos != "" && $startPos != "1"} { html {} } else { html {">Previous records} " | \n" } } html {} } else { html {">New query} " | \n" } html {} } else { html {">New target} } html "
\n" if {!$useIcons && !$after && $startPos != "" && $startPos != "1"} { html "
\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 set query [build-query $hist($setNo,host)] if {"x$query" == "x"} { html "