svk/rac-gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Исправлены ошибки с name и infobase_name

Browse Source
This commit is contained in:
Sergey 2019-11-30 15:51:07 +03:00
parent ba0e53797f
commit da94a001bf
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/function.tcl
View File

@ -48,14 +48,14 @@ proc SetGlobalVarFromTreeItems {tree id} {
} }
cluster { cluster {
set active_cluster $values set active_cluster $values
#puts $values
#dict set servers_list servers $host clusters "$values {}" #dict set servers_list servers $host clusters "$values {}"
set cluster_user [GetClusterAdmin $host $active_cluster] set cluster_user [GetClusterAdmin $host $active_cluster]
set cluster_pwd [GetClusterPassword $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 { infobase {
set infobase $values 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 { profile {
set profile_name $values 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" $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]} { if {![dict exists $servers_list servers $host clusters $active_cluster infobases $id]} {
dict set servers_list servers $host clusters $active_cluster \ 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 InsertBaseItems $tree $id
@ -2580,7 +2580,3 @@ proc Del::app {tree host profile_name} {
proc Del::inet {tree host profile_name} { proc Del::inet {tree host profile_name} {
Del::acl $host inet [GetWorkTreeItems "name"] $profile_name Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
} }