From 4646a5dbb8d9d371fcacacc790e932f4dc123f5c Mon Sep 17 00:00:00 2001 From: Evgeniy Khramtsov Date: Fri, 4 Jun 2010 13:31:34 +1000 Subject: fixes wrong SQL escaping when --enable-full-xml is set --- src/xml.erl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/xml.erl') diff --git a/src/xml.erl b/src/xml.erl index 96d0b218..9a9a7f83 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} -> -- cgit v1.2.3