From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Tue, 21 Apr 2015 08:49:41 +0000 (+0300)
Subject: Fix LDAP substrings filter (EJAB-1715)
X-Git-Tag: 15.04~14
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ed79a61752dc137f83c8bbd8963924baea53ddc9;p=ejabberd

Fix LDAP substrings filter (EJAB-1715)
---

diff --git a/src/eldap.erl b/src/eldap.erl
index 5e084b01b..a9edebdf0 100644
--- a/src/eldap.erl
+++ b/src/eldap.erl
@@ -507,16 +507,14 @@ present(Attribute) ->
 -type substr() :: [{initial | any | final, binary()}].
 -type 'SubstringFilter'() ::
         #'SubstringFilter'{type :: binary(),
-                           substrings :: {'SubstringFilter_substrings',
-                                          substr()}}.
+                           substrings :: substr()}.
 
 -type substrings() :: {substrings, 'SubstringFilter'()}.
 -spec substrings(binary(), substr()) -> substrings().
 
 substrings(Type, SubStr) ->
-    Ss = {'SubstringFilter_substrings', SubStr},
     {substrings,
-     #'SubstringFilter'{type = Type, substrings = Ss}}.
+     #'SubstringFilter'{type = Type, substrings = SubStr}}.
 
 -type match_opts() :: [{matchingRule | type, binary()} |
                        {dnAttributes, boolean()}].