25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-26 17:38:45 +01:00

fix issue with RSM filtering

SVN Revision: 2548
This commit is contained in:
Christophe Romain 2009-08-27 09:32:40 +00:00
parent c137715902
commit 2425c51ae4

View File

@ -1093,10 +1093,9 @@ iq_pubsub(Host, ServerHost, From, IQType, SubEl, Lang, Access, Plugins) ->
iq_pubsub_owner(Host, ServerHost, From, IQType, SubEl, Lang) -> iq_pubsub_owner(Host, ServerHost, From, IQType, SubEl, Lang) ->
{xmlelement, _, _, SubEls} = SubEl, {xmlelement, _, _, SubEls} = SubEl,
NoRSM = lists:filter(fun({xmlelement, Name, _, _}) -> Action = lists:filter(fun({xmlelement, "set", _, _}) -> false
Name == "set" (_) -> true
end, SubEls), end, xml:remove_cdata(SubEls)),
Action = xml:remove_cdata(SubEls) -- NoRSM,
case Action of case Action of
[{xmlelement, Name, Attrs, Els}] -> [{xmlelement, Name, Attrs, Els}] ->
Node = case Host of Node = case Host of