fix badmatch on remove_user on PEP nodes (EJAB-1649)

diff --git a/src/node_pep.erl b/src/node_pep.erl
index c6ec9dcd2d1c9b17253514b7328271dff85f3b85..f4b0bb38c5f311edcdff8a037ec406ffeff3e8a6 100644 (file)
--- a/src/node_pep.erl
+++ b/src/node_pep.erl
@@ -144,12 +144,10 @@ create_node(NodeIdx, Owner) ->
 ).
 
 delete_node(Removed) ->
-    {result, {_, _, Removed}} = node_hometree:delete_node(Removed),
-    {result, {[], Removed}}.
-%    case node_hometree:delete_node(Removed) of
-%      {result, {_, _, Removed}} -> {result, {[], Removed}};
-%      Error -> Error
-%    end.
+    case node_hometree:delete_node(Removed) of
+      {result, {_, _, Result}} -> {result, {[], Result}};
+      Error -> Error
+    end.
 
 -spec(subscribe_node/8 ::
 (

diff --git a/src/node_pep_odbc.erl b/src/node_pep_odbc.erl
index fd867038a5de228ce5f5730ff55bed0b80e0f485..81cb7bc53fc13d937223e189cfb3a0dba4c4d0b6 100644 (file)
--- a/src/node_pep_odbc.erl
+++ b/src/node_pep_odbc.erl
@@ -156,7 +156,7 @@ create_node(NodeIdx, Owner) ->
 ).
 delete_node(Removed) ->
     case node_hometree_odbc:delete_node(Removed) of
-      {result, {_, _, Removed}} -> {result, {[], Removed}};
+      {result, {_, _, Result}} -> {result, {[], Result}};
       Error -> Error
     end.