Исправлена ошибка при появлении окна авторизации админа кластера

Добавлены ключи авторизации (юзер и пароль) в вызов RAC при редактировании ИБ

lib/function.tcl

@@ -883,7 +883,7 @@ proc AddToplevel {lbl img {win_name .add}} {
     grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0
     pack  $frm_btn.btn_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
     #pack  $frm_btn.btn_ok  -side right -padx 2
-    bind .add <Escape> $cmd
+    bind $win_name <Escape> $cmd
     return $frm
 }
 
@@ -1935,6 +1935,7 @@ proc Edit::infobases {tree host values} {
     }
     Edit::infobase $tree $host $infobase
 }
+
 proc Edit::infobase {tree host values} {
     global default active_cluster infobase agent_user agent_pwd cluster_user cluster_pwd
     global security_level dbms scheduled_jobs_deny license_distribution date_offset
@@ -1944,6 +1945,16 @@ proc Edit::infobase {tree host values} {
     } else {
         set auth ""
     }
+    #### Проверяем наличие юзера и пароля в конфиге и если есть то используем ####
+    set infobase_user [GetInfobaseUser $host $active_cluster $values]    
+    set infobase_pwd [GetInfobasePassword $host $active_cluster $values]
+    
+    if {$infobase_user ne "" && $infobase_pwd ne ""} {
+        set ib_auth "--infobase-user=$infobase_user --infobase-pwd=$infobase_pwd"
+    } else {
+        set ib_auth ""
+    }
+    
     
     set infobase $values
     set frm [Add::infobases $tree $host $values]
@@ -2016,14 +2027,14 @@ proc Edit::infobase {tree host values} {
     grid $frm.lbl_external_session_manager_required -row 9 -column 2 -sticky nw -padx 5 -pady 5
     grid $frm.check_external_session_manager_required -row 9 -column 3 -sticky nw -padx 5 -pady 5
     
-    set lst [RunCommand "infobase info --cluster=$active_cluster --infobase=$values $auth $host"]
+    set lst [RunCommand "infobase info --cluster=$active_cluster $auth --infobase=$values $ib_auth $host"]
     FormFieldsDataInsert $frm $lst
     
     .add.frm_btn.btn_ok configure -command {
         RunCommand "infobase update \
         --infobase=$infobase \
-        --infobase-user= \
-        --infobase-pwd= \
+        --infobase-user=$infobase_user \
+        --infobase-pwd=$infobase_pwd \
         --dbms=$dbms \
         --db-server=[.add.frm.ent_db_server get] \
         --db-name=[.add.frm.ent_db_name get] \
@@ -2569,3 +2580,4 @@ proc Del::inet {tree host profile_name} {
     Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
 }
 
+