diff --git a/src/mod_pubsub/nodetree_dag.erl b/src/mod_pubsub/nodetree_dag.erl index 0c749fb51..b4db80364 100644 --- a/src/mod_pubsub/nodetree_dag.erl +++ b/src/mod_pubsub/nodetree_dag.erl @@ -154,17 +154,21 @@ get_parentnodes_tree(Host, NodeID, _From) -> get_subnodes(Host, NodeID, _From) -> get_subnodes(Host, NodeID). +get_subnodes(Host, <<>>) -> + get_subnodes_helper(Host, <<>>); get_subnodes(Host, NodeID) -> case find_node(Host, NodeID) of false -> {error, exmpp_stanza:error(?NS_JABBER_CLIENT, 'item-not-found')}; - _ -> - Q = qlc:q([Node || #pubsub_node{nodeid = {NHost, _}, - parents = Parents} = Node <- mnesia:table(pubsub_node), - Host == NHost, - lists:member(NodeID, Parents)]), - qlc:e(Q) + _ -> get_subnodes_helper(Host, NodeID) end. +get_subnodes_helper(Host, NodeID) -> + Q = qlc:q([Node || #pubsub_node{nodeid = {NHost, _}, + parents = Parents} = Node <- mnesia:table(pubsub_node), + Host == NHost, + lists:member(NodeID, Parents)]), + qlc:e(Q). + get_subnodes_tree(Host, NodeID, From) -> Pred = fun (NID, #pubsub_node{parents = Parents}) -> lists:member(NID, Parents) @@ -224,6 +228,8 @@ validate_parentage(_Key, _Owners, []) -> true; validate_parentage(Key, Owners, [[] | T]) -> validate_parentage(Key, Owners, T); +validate_parentage(Key, Owners, [<<>> | T]) -> + validate_parentage(Key, Owners, T); validate_parentage(Key, Owners, [ParentID | T]) -> case find_node(Key, ParentID) of false -> {error, exmpp_stanza:error(?NS_JABBER_CLIENT, 'item_not_found')};