diff --git a/lib/function.tcl b/lib/function.tcl index a5a1fe4..e59bcfe 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -1894,7 +1894,6 @@ proc Del::profiles {tree host values} { Del::profile $tree $host [GetWorkTreeItems "name"] } - proc Del::acl {host type name profile_name} { global active_cluster agent_user agent_pwd cluster_user cluster_pwd auth if {$cluster_user ne "" && $cluster_pwd ne ""} {