- set databases [lindex $targets($host) 1]
-
-# if {[catch {set prevHost $hist([expr $setNo - 1],host)}]} {
-# set databaseDefault [lindex $databases 0]
-# set oSetNo 0
-# } else {
-# set oSetNo [expr $setNo - 1]
-# set databaseDefault $hist($oSetNo,database)
-# }
- if {$initSet == ""} {
+
+ set useIcons 1
+ button-main
+ button-new-target
+ if {[lsearch [z390 options] scan] >= 0} {
+ button-scan-window $setNo
+ }
+ button-view-history
+
+ html "<h2>" [lindex $targets($host) 0] "</h2><br>\n"
+
+ html [lindex $targets($host) 4] "<br>\n"
+
+ set databases [splitDatabaseSpec $host]
+ if {$initSet == -1} {