25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-28 16:34:13 +01:00

Force PEP parent node to be []

SVN Revision: 1144
This commit is contained in:
Christophe Romain 2008-01-10 17:38:24 +00:00
parent b3bf437dd1
commit 04eb1c6641

View File

@ -144,11 +144,15 @@ create_node(Key, Node, Type, Owner, Options) ->
{[], true}; {[], true};
_ -> _ ->
Parent = lists:sublist(Node, length(Node) - 1), Parent = lists:sublist(Node, length(Node) - 1),
(Parent == []) orelse case Parent of
[] ->
{[], true};
_ ->
case mnesia:read({pubsub_node, {Key, Parent}}) of case mnesia:read({pubsub_node, {Key, Parent}}) of
[] -> {Parent, false}; [] -> {Parent, false};
_ -> {Parent, true} _ -> {Parent, true}
end end
end
end, end,
case ParentExists of case ParentExists of
true -> true ->