anchor.diff:  		when is_list(String), ((Op == exact) orelse (Op == like)) ->
   	MatchHead2 = case lists:last(String) of
   		$% when Op == like ->
  -			MatchHead1#resource{category = lists:droplast(String) ++ '_'};
  +			MatchHead1#resource{name = lists:droplast(String) ++ '_'};
   		_ ->
  -         MatchHead1#resource{category = String}
  +         MatchHead1#resource{name = String}
   	end,
      query_resource2(Cont, MatchHead2, MatchResSpecId, MatchRelName).
   query_resource2(Cont, MatchHead, '_', MatchRelName) ->
  
positive.code: 		_ ->
           #resource{id = String, _ = '_'}
  	end,
     query_resource1(Cont, MatchHead, MatchCategory,
  			MatchResSpecId, MatchRelName).
  %% @hidden
  query_resource1(Cont, MatchHead, '_', MatchResSpecId, MatchRelName) ->
  
negative.code: 			ocs_event:notify(delete_resource, Resource, resource)
  	end.
  
  -spec query_resource(Cont, MatchId, MatchName,
  		MatchResSpecId, MatchRelName) -> Result
  	when
  		Cont :: start | any(),
  		MatchId :: Match,
  		MatchName :: Match,
  		MatchResSpecId :: Match,
  		MatchRelName :: Match,
  		Match :: {exact, string()} | {like, string()} | '_',
  