+ set oSetNo [lindex $sessionParms 0]
+ if {$oSetNo < 0} {
+ set oSetNo 0
+ }
+ if {$i == 0 && $oSetNo && [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
+ }