- } else {
- set hosts [wform target]
- html "hosts=$hosts <br>\n"
- set i 1
- foreach host $hosts {
- set hist($setNo,$i,host) $host
- set hist($setNo,$i,database) [lindex [lindex $targets($host) 1] 0]
- incr i
+ set oSetNo [lindex $sessionParms 0]
+ if {$i == 0 && [info exists hist($oSetNo,0,host)]} {
+ for {set i 1} {$i <= $hist($oSetNo,0,host)} {incr i} {
+ set hist($setNo,$i,host) $hist($oSetNo,$i,host)
+ set hist($setNo,$i,idAuthentication) \
+ $hist($oSetNo,$i,idAuthentication)
+ set hist($setNo,$i,database) $hist($oSetNo,$i,database)
+ }
+ incr i -1