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};
_ ->
Parent = lists:sublist(Node, length(Node) - 1),
(Parent == []) orelse
case Parent of
[] ->
{[], true};
_ ->
case mnesia:read({pubsub_node, {Key, Parent}}) of
[] -> {Parent, false};
_ -> {Parent, true}
end
end
end,
case ParentExists of
true ->