diff --git a/lib/function.tcl b/lib/function.tcl index e59bcfe..45c4fd2 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -1907,9 +1907,9 @@ 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 answer [tk_messageBox -message "Удалить $type - $name?" \ -icon question -type yesno ] @@ -1942,3 +1942,4 @@ proc Del::app {tree host profile_name} { proc Del::inet {tree host profile_name} { Del::acl $host inet [GetWorkTreeItems "name"] $profile_name } +