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