瀏覽代碼

fixing get_group_memberships

Daniel Moore 11 年之前
父節點
當前提交
e87727c4c0
共有 1 個文件被更改,包括 1 次插入6 次删除
  1. 1 6
      src/ldap_auth_gateway.erl

+ 1 - 6
src/ldap_auth_gateway.erl

@@ -68,13 +68,8 @@ query(LdapConnection, Type, Filter) ->
   end.
 
 get_group_memberships(LdapConnection, UserDN) ->
-%%   [AdminGroupDN] = get_config(["AdminGroupDN"]),
   Memberships = get_group_memberships(LdapConnection, sets:new(), UserDN),
-  sets:to_list(Memberships).
-%%   [ case T of
-%%       {AdminGroupDN, _} -> "_admin";
-%%       {_, R} -> R
-%%     end || T <- sets:to_list(Memberships) ].
+  [ R || {_, R} <- sets:to_list(Memberships)].
 
 get_group_memberships(LdapConnection, Memberships, DN) ->
   [GroupDNMapAttr] = get_config(["GroupDNMapAttr"]),