From db453a537bc978b0e47c8a94321b72c363c34c91 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Tue, 3 Jul 2018 14:04:54 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D1=8B=20=D0=BA=D0=B0=D0=B2=D1=8B=D1=87=D0=BA=D0=B8=20?=
 =?UTF-8?q?=D0=B2=20Run::acl=20=D0=B4=D0=BB=D1=8F=20=D0=BF=D0=B0=D1=80?=
 =?UTF-8?q?=D0=B0=D0=BC=D0=B5=D1=82=D1=80=D0=BE=D0=B2=20=D1=81=D0=BE=D0=B4?=
 =?UTF-8?q?=D0=B5=D1=80=D0=B6=D0=B0=D1=89=D0=B8=D1=85=20=D0=BF=D1=80=D0=BE?=
 =?UTF-8?q?=D0=B1=D0=B5=D0=BB=D1=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

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
 }
+