- set op {}
- set q {}
- for {set i 1} {$i < 4} {incr i} {
- set term [form entry$i]
- if {$term != ""} {
- set field [form menu$i]
- foreach x [lindex $targets($t) 2] {
- if {[lindex $x 0] == $field} {
- set attr [lindex $x 1]
- }
- }
- switch $op {
- And
- { set q "@and $q ${attr} ${term}" }
- Or
- { set q "@or $q ${attr} ${term}" }
- {And not}
- { set q "@not $q ${attr} ${term}" }
- {}
- { set q "${attr} ${term}" }
- }
- set op [form logic$i]
+ 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) " <br\n"
+ incr nextSetNo
+
+ set hist($setNo,query) [build-query $hist($setNo,host)]
+ set b [wform base]
+ if {$b == ""} {
+ set hist($setNo,database) $databases
+ } else {
+ set hist($setNo,database) $b
+ }
+ set hist($setNo,maxPresent) [wform hits]
+ if {$hist($setNo,maxPresent) == ""} {
+ set hist($setNo,maxPresent) 30