diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-06-04 13:31:34 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2010-06-04 13:31:34 +1000 |
| commit | 4646a5dbb8d9d371fcacacc790e932f4dc123f5c (patch) | |
| tree | b9d840ba3677a616ec26e889830ec1555872d0dd /src/xml.erl | |
| parent | Update ejabberd version number to 2.1.4 (diff) | |
fixes wrong SQL escaping when --enable-full-xml is set
Diffstat (limited to 'src/xml.erl')
| -rw-r--r-- | src/xml.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/xml.erl b/src/xml.erl index 96d0b2189..9a9a7f833 100644 --- a/src/xml.erl +++ b/src/xml.erl @@ -28,6 +28,7 @@ -author('alexey@process-one.net'). -export([element_to_string/1, + element_to_binary/1, crypt/1, make_text_node/1, remove_cdata/1, get_cdata/1, get_tag_cdata/1, @@ -47,6 +48,9 @@ -define(ESCAPE_BINARY(CData), crypt(CData)). -endif. +element_to_binary(El) -> + iolist_to_binary(element_to_string(El)). + element_to_string(El) -> case catch element_to_string_nocatch(El) of {'EXIT', Reason} -> |