diff --git a/ChangeLog b/ChangeLog index 637e5414f..6c09ce86f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,6 +3,8 @@ * src/ejabberd_service.erl: Exmpp related fixed to the external components service. + * src/mod_echo.erl: Fix call to exmpp_xml:get_cdata_as_list/1. + 2009-02-23 Pablo Polvorin * src/ejabberd_c2s.erl, src/mod_echo.erl, src/mod_roster.erl, src/mod_roster_odbc.erl: Use exmpp_jid:to_binary/1 when possible. diff --git a/src/mod_echo.erl b/src/mod_echo.erl index c4d5133b1..a1df48723 100644 --- a/src/mod_echo.erl +++ b/src/mod_echo.erl @@ -194,7 +194,7 @@ do_client_version(enabled, From, To) -> after 5000 -> % Timeout in miliseconds: 5 seconds [] end, - Values = [{Name, exmpp_xml:get_cdata_as_list(Children)} || #xmlel{name = Name, children = Children} <- Els], + Values = [{Name, exmpp_xml:get_cdata_as_list(El)} || #xmlel{name = Name} = El <- Els], %% Print in log Values_string1 = [io_lib:format("~n~s: ~p", [N, V]) || {N, V} <- Values],