Fix configuration commands (#1432)

diff --git a/src/mod_configure.erl b/src/mod_configure.erl
index 8f73a141a9297f2baf3b80af44a0e2a723872b8f..b1827be057078078e71256ebf1a8072988ae4b74 100644 (file)
--- a/src/mod_configure.erl
+++ b/src/mod_configure.erl
@@ -341,16 +341,15 @@ adhoc_local_items(Acc, From,
          PermLev = get_permission_level(From),
          Nodes = recursively_get_local_items(PermLev, LServer,
                                              <<"">>, Server, Lang),
-         Nodes1 = lists:filter(fun (N) ->
-                                       Nd = fxml:get_tag_attr_s(<<"node">>, N),
-                                       F = get_local_features([], From, To, Nd,
-                                                              Lang),
-                                       case F of
-                                         {result, [?NS_COMMANDS]} -> true;
-                                         _ -> false
-                                       end
-                               end,
-                               Nodes),
+         Nodes1 = lists:filter(
+                    fun (#disco_item{node = Nd}) ->
+                            F = get_local_features([], From, To, Nd, Lang),
+                            case F of
+                                {result, [?NS_COMMANDS]} -> true;
+                                _ -> false
+                            end
+                    end,
+                    Nodes),
          {result, Items ++ Nodes1};
       _ -> Acc
     end.