{ # $Id: msearch.egw,v 1.2 1995/11/08 16:14:33 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl } global sessionWait global nextSetNo global setNo global hist global zstatus if {[wform menu1] == ""} { set setNo [lindex $sessionParms 0] } else { if {![info exists hist($nextSetNo,0,host)]} { set hist($nextSetNo,0,host) $hist($setNo,0,host) for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} { set hist($nextSetNo,$i,host) $hist($setNo,$i,host) set hist($nextSetNo,$i,database) $hist($setNo,$i,database) } } set setNo $nextSetNo incr nextSetNo for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} { set hist($setNo,$i,query) [build-query $hist($setNo,$i,host)] } set hist($setNo,maxPresent) [wform hits] if {$hist($setNo,maxPresent) == ""} { set hist($setNo,maxPresent) 30 } } html "