anchor.diff:  %% @doc Check if the category (or one of its parents) is in the category access list of the user
   can_insert(_Cat, #context{user_id=?ACL_ADMIN_USER_ID}) ->
       true;
  +can_insert(_Cat, #context{acl=undefined}) ->
  +    undefined;
   can_insert(Cat, #context{acl=Acl} = Context) ->
       case lists:member(Cat, Acl#acl_user.categories) of
           true -> 
  
positive.code:         [{title, <<"ACL Role Member">>}],
          [{acl_role, person}]
         }]
       }
      ].
  
  
negative.code: %% @doc Check if the user has 'view_all' permission
  can_view_all(#context{user_id=?ACL_ADMIN_USER_ID}) ->
      true;
  can_view_all(#context{acl=undefined}) ->
      undefined;
  can_view_all(#context{acl=Acl}) ->
      case Acl#acl_user.view_all of 
          true -> true;
  