fixes ampersand escaping (EJAB-1258)

diff --git a/src/eldap/eldap_filter.erl b/src/eldap/eldap_filter.erl
index 51dac5ec71396e19411731aafd9e6a5e6351da57..341fba13a0b2973712cf508b8e77d97d021a2ecb 100644 (file)
--- a/src/eldap/eldap_filter.erl
+++ b/src/eldap/eldap_filter.erl
@@ -171,7 +171,7 @@ do_sub(S, {RegExp, New, Times}, Iter) ->
     end.
 
 replace_amps(String) ->
-    lists:map(
+    lists:flatmap(
       fun($&) -> "\\&";
-        (Chr) -> Chr
+        (Chr) -> [Chr]
       end, String).