diff --git a/lib/function.tcl b/lib/function.tcl index 525b462..f6830e1 100644 --- 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 {