diff options
| author | Christophe Romain <christophe.romain@process-one.net> | 2009-08-17 20:25:31 +0000 |
|---|---|---|
| committer | Christophe Romain <christophe.romain@process-one.net> | 2009-08-17 20:25:31 +0000 |
| commit | f2bd9e01b0de6dbdb4d46a668e5525742f8ee7f1 (patch) | |
| tree | 3787e2bf540cb47f469ddf1a00db3415fd397a13 /src/mod_pubsub/nodetree_tree_odbc.erl | |
| parent | Fix EDoc errors. (diff) | |
fix create_node and subscribe_node glitches from last merge
SVN Revision: 2496
Diffstat (limited to 'src/mod_pubsub/nodetree_tree_odbc.erl')
| -rw-r--r-- | src/mod_pubsub/nodetree_tree_odbc.erl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/mod_pubsub/nodetree_tree_odbc.erl b/src/mod_pubsub/nodetree_tree_odbc.erl index 95f9b34ef..6468913d1 100644 --- a/src/mod_pubsub/nodetree_tree_odbc.erl +++ b/src/mod_pubsub/nodetree_tree_odbc.erl @@ -220,13 +220,15 @@ create_node(Host, Node, Type, _Owner, Options) -> %% PEP does not uses hierarchy {[], true}; _ -> - Parent = lists:sublist(Node, length(Node) - 1), - ParentE = (Parent == []) orelse + case lists:sublist(Node, length(Node) - 1) of + [] -> + {[], true}; + Parent -> case nodeid(Host, Parent) of - {result, _} -> true; - _ -> false - end, - {Parent, ParentE} + {result, _} -> {Parent, true}; + _ -> {Parent, false} + end + end end, case ParentExists of true -> |