From 3acd2be5a62478fb17a1d9df0c5e2f8cf62a1150 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Fri, 20 Jul 2018 07:07:56 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=20?=
 =?UTF-8?q?=D0=BF=D1=80=D0=B8=20=D1=83=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8?=
 =?UTF-8?q?=D0=B8=20=D1=8D=D0=BB=D0=B5=D0=BC=D0=B5=D0=BD=D1=82=D0=BE=D0=B2?=
 =?UTF-8?q?=20=D0=BF=D1=80=D0=BE=D1=84=D0=B8=D0=BB=D1=8F=20=D0=B1=D0=B5?=
 =?UTF-8?q?=D0=B7=D0=BE=D0=BF=D0=B0=D1=81=D0=BD=D0=BE=D1=81=D1=82=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/function.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 {