From da94a001bfc14a69af85a5cd013ffa0c6b41575e Mon Sep 17 00:00:00 2001 From: Sergey Date: Sat, 30 Nov 2019 15:51:07 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D1=8B=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B8=20?= =?UTF-8?q?=D1=81=20name=20=D0=B8=20infobase=5Fname?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/function.tcl | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lib/function.tcl b/lib/function.tcl index 2f66006..2570076 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -48,14 +48,14 @@ proc SetGlobalVarFromTreeItems {tree id} { } cluster { set active_cluster $values - #puts $values #dict set servers_list servers $host clusters "$values {}" set cluster_user [GetClusterAdmin $host $active_cluster] set cluster_pwd [GetClusterPassword $host $active_cluster] + #dict set servers_list servers $host clusters "$values {}" "cluster_user $cluster_user cluster_pwd $cluster_pwd" } infobase { set infobase $values - #puts [dict set servers_list servers $host clusters $active_cluster infobases $values] + #dict set servers_list servers $host clusters $active_cluster infobases $values } profile { set profile_name $values @@ -497,7 +497,7 @@ proc Run::infobases {tree host values} { $tree insert "infobases::$values" end -id "infobase::$id" -text "[lindex $base($x) 1]" -values "$id" if {![dict exists $servers_list servers $host clusters $active_cluster infobases $id]} { dict set servers_list servers $host clusters $active_cluster \ - infobases $id "name \"[lindex $base($x) 1]\"" + infobases $id "infobase_name \"[lindex $base($x) 1]\"" } } InsertBaseItems $tree $id @@ -2580,7 +2580,3 @@ proc Del::app {tree host profile_name} { proc Del::inet {tree host profile_name} { Del::acl $host inet [GetWorkTreeItems "name"] $profile_name } - - - -