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

2018-07-20 07:07:56 +03:00
parent a0bbbd3eb5
commit 3acd2be5a6
1 changed files with 4 additions and 2 deletions
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -2207,10 +2207,12 @@ proc Del::acl {host type name profile_name} {
        set agent_auth ""
    }
    if {$type eq "directory"} {
-        set item "--alias=\"$name\""
+        set item "\"--alias=$name\""
    } else {
-        set item "--name=\"$name\""
+        set item "\"--name=$name\""
    }
+    set item [regsub -all -- " " $item "\\ "]
+    
    set answer [tk_messageBox -message "Удалить $type - $name?" \
    -icon question -type yesno ]
    switch -- $answer {