anchor.diff:  extract_parentURI(Path) ->
       lager:debug("Entry"),
       extract_parentURI(Path, "") ++ "/".
  --spec extract_parentURI(list(), list()) -> list().
  -extract_parentURI([], Acc) ->
  -    Acc;
  -extract_parentURI([H|T], Acc) when is_binary(H) ->
  -    Acc2 = Acc ++ "/" ++ binary_to_list(H),
  -    extract_parentURI(T, Acc2);
  -extract_parentURI([H|T], Acc) ->
  -    Acc2 = Acc ++ "/" ++ H,
  -    extract_parentURI(T, Acc2).
   
   %% @doc Get the object name.
   -spec get_object_name(list(), string()) -> string().
  
positive.code:         ?CONTENT_TYPE_CDMI_DOMAIN ->
              ?DOMAIN_CAPABILITY_URI
      end.
  
  sanitize_body([], Body) ->
      Body;
  
negative.code:     pooler:return_member(riak_pool, Pid),
      {true, Req2, Data4}.
  
  -spec extract_parentURI(list(), list()) -> list().
  extract_parentURI([], Acc) ->
      Acc;
  extract_parentURI([H|T], Acc) when is_binary(H) ->
      Acc2 = Acc ++ "/" ++ binary_to_list(H),
      extract_parentURI(T, Acc2);
  extract_parentURI([H|T], Acc) ->
      Acc2 = Acc ++ "/" ++ H,
      extract_parentURI(T, Acc2).
  
  get_capability_uri(ObjectType) ->
      lager:debug("Entry"),
      case ObjectType of
  