Update mod_profile to work with ejabberd 16.02

This commit is contained in:
Holger Weiss 2016-03-08 00:39:39 +01:00
parent 39cf5a0fd7
commit 02759c6aae
1 changed files with 2 additions and 2 deletions

View File

@ -161,7 +161,7 @@ process_sm_iq_set(LUser, LServer, SubEl, IQ) ->
#xmlel{children = SubSubEls} = SubEl,
ElsList = [El
|| #xmlel{name = Name} = El
<- xml:remove_cdata(SubSubEls),
<- fxml:remove_cdata(SubSubEls),
Name == <<"x">>],
case ElsList of
[XData] ->
@ -279,7 +279,7 @@ filter_profile_fields(_StoredFields, [], ResFields) ->
%% Copied from exmpp_xml.erl, then customized
get_requested_fields(SubEl) ->
case xml:get_subtag(SubEl, <<"x">>) of
case fxml:get_subtag(SubEl, <<"x">>) of
false -> [];
XEl -> get_elements(XEl, <<"field">>)
end.