fix issue with RSM filtering

SVN Revision: 2548

diff --git a/src/mod_pubsub/mod_pubsub_odbc.erl b/src/mod_pubsub/mod_pubsub_odbc.erl
index aa6b1ece3024ceb016c2dbb806032a03baf2831f..31ff479c62845b54071e89c5bca84b506a72ab2e 100644 (file)
--- a/src/mod_pubsub/mod_pubsub_odbc.erl
+++ b/src/mod_pubsub/mod_pubsub_odbc.erl
@@ -1093,10 +1093,9 @@ iq_pubsub(Host, ServerHost, From, IQType, SubEl, Lang, Access, Plugins) ->
 
 iq_pubsub_owner(Host, ServerHost, From, IQType, SubEl, Lang) ->
     {xmlelement, _, _, SubEls} = SubEl,
-    NoRSM = lists:filter(fun({xmlelement, Name, _, _}) ->
-                           Name == "set"
-                       end, SubEls),
-    Action = xml:remove_cdata(SubEls) -- NoRSM,
+    Action = lists:filter(fun({xmlelement, "set", _, _}) -> false
+                            (_) -> true
+                       end, xml:remove_cdata(SubEls)),
     case Action of
        [{xmlelement, Name, Attrs, Els}] ->
            Node = case Host of