- 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
+ set hist($setNo,scan) 0
+
+ set hist($setNo,form,menu1) [egw_form menu1]
+ set hist($setNo,form,menu2) [egw_form menu2]
+ set hist($setNo,form,menu3) [egw_form menu3]
+
+ set hist($setNo,form,entry1) [egw_form entry1]
+ set hist($setNo,form,entry2) [egw_form entry2]
+ set hist($setNo,form,entry3) [egw_form entry3]
+
+ set hist($setNo,form,logic1) [egw_form logic1]
+ set hist($setNo,form,logic2) [egw_form logic2]
+ set hist($setNo,form,logic3) {}
+
+ set host $hist($setNo,0,host)
+ set databases [lindex $targets($host) 1]
+
+ set b [egw_form base]
+ if {[egw_form baseall] != ""} {
+ set hist($setNo,0,database) $databases
+ } elseif {$b == ""} {
+ set hist($setNo,0,database) $databases