- if {[wform menu1] != ""} {
- set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
- set hist($nextSetNo,host) $hist($setNo,host)
- 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 targetNo [lindex $sessionParms 1]
+ set startPos [lindex $sessionParms 2]
+ set endPos [lindex $sessionParms 3]
+
+ if {[egw_form] != ""} {
+ set hist($nextSetNo,$targetNo,idAuthentication) \
+ $hist($setNo,$targetNo,idAuthentication)
+ set hist($nextSetNo,$targetNo,host) \
+ $hist($setNo,$targetNo,host)
+
+ if {$nextSetNo == $setNo} {
+ set setNo $nextSetNo
+ incr nextSetNo
+ } else {
+ catch {unset hist($setNo,$targetNo,hits)}
+ }
+ 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 [splitDatabaseSpec $host]
+
+ set b [egw_form base]
+ if {[egw_form baseall] != ""} {
+ set hist($setNo,$targetNo,database) $databases
+ } elseif {$b == ""} {
+ set hist($setNo,$targetNo,database) $databases