+ 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
+ }