25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-22 16:20:52 +01:00

Fix xmlcdata binary content

This commit is contained in:
Badlop 2010-06-21 22:49:34 +02:00
parent a6c0a3d59b
commit ac6ae9e8dd

View File

@ -170,7 +170,7 @@ process(_, _Request) ->
%% Code copied from mod_http_bind.erl and customized %% Code copied from mod_http_bind.erl and customized
get_human_html_xmlel() -> get_human_html_xmlel() ->
Heading = "ejabberd " ++ atom_to_list(?MODULE), Heading = list_to_binary("ejabberd " ++ atom_to_list(?MODULE)),
H = #xmlel{name = h1, children = [#xmlcdata{cdata = Heading}]}, H = #xmlel{name = h1, children = [#xmlcdata{cdata = Heading}]},
Par1 = #xmlel{name = p, children = Par1 = #xmlel{name = p, children =
[#xmlcdata{cdata = <<"An implementation of ">>}, [#xmlcdata{cdata = <<"An implementation of ">>},