diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-03-08 14:04:56 +0900 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-03-08 14:04:56 +0900 |
| commit | 22d490486a97d51ae4702fade8c8f6ab865172ba (patch) | |
| tree | c3df74929245e69aae63aca2918e761664c1007a /src/eldap/eldap_utils.erl | |
| parent | fix mistake in previous broadcast_stanza change (diff) | |
now using "%u" pattern as default for ldap_uids (EJAB-1203)
Diffstat (limited to 'src/eldap/eldap_utils.erl')
| -rw-r--r-- | src/eldap/eldap_utils.erl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/eldap/eldap_utils.erl b/src/eldap/eldap_utils.erl index 06dc9b00f..993219eb3 100644 --- a/src/eldap/eldap_utils.erl +++ b/src/eldap/eldap_utils.erl @@ -53,15 +53,17 @@ subfilter({UIDAttr}) -> %% Not tail-recursive, but it is not very terribly. %% It stops finding on the first not empty value. +find_ldap_attrs([{Attr} | Rest], Attributes) -> + find_ldap_attrs([{Attr, "%u"} | Rest], Attributes); find_ldap_attrs([{Attr, Format} | Rest], Attributes) -> - case get_ldap_attr(Attr, Attributes) of + case get_ldap_attr(Attr, Attributes) of Value when is_list(Value), Value /= "" -> - {Value, Format}; + {Value, Format}; _ -> - find_ldap_attrs(Rest, Attributes) - end; + find_ldap_attrs(Rest, Attributes) + end; find_ldap_attrs([], _) -> - "". + "". get_ldap_attr(LDAPAttr, Attributes) -> Res = lists:filter( |