anchor.diff:  	end.
   
   %% @hidden
  -content_type_available(Headers, Body, Uri, Resource, ModData) ->
  +content_type_available(Headers, ContentType, Body, Uri, Resource, ModData) ->
   	case lists:keyfind("accept", 1, Headers) of
   		{_, RequestingType} ->
   			AvailableTypes = Resource:content_types_provided(),
   			case lists:member(RequestingType, AvailableTypes) of
   				true ->
   					Etag = get_etag(Headers),
  -					do_patch(Body, Resource, ModData, Etag, string:tokens(Uri, "/"));
  +					do_patch(ContentType, Body, Resource, ModData, Etag,
  +							string:tokens(Uri, "/"));
   				false ->
   					Response = "<h2>HTTP Error 415 - Unsupported Media Type</h2>",
   					{break, [{response, {415, Response}}]}
   			end;
   		_ ->
  -			do_patch(Uri, Body, Resource, undefined, ModData)
  +			do_patch(ContentType, Uri, Body, Resource, undefined, ModData)
   	end.
   
   %% @hidden
  
positive.code: 					case proplists:get_value(response, Data) of
  						undefined ->
  							{_, Resource} = lists:keyfind(resource, 1, Data),
  							content_type_available(Headers, Body, Uri, Resource, ModData);
  						_Response ->
  							{proceed,  Data}
  					end
  
negative.code: 	end.
  
  %% @hidden
  do_patch(ContentType, Body, Resource, ModData, Etag,
  		["ocs", "v1", "client", Identity]) ->
  	do_response(ModData, Resource:patch_client(Identity, Etag, ContentType, Body));
  do_patch(_ContentType, Body, Resource, ModData, Etag,
  		["ocs", "v1", "subscriber", Identity]) ->
  	do_response(ModData, Resource:patch_subscriber(Identity, Etag, Body));
  do_patch(_, _, _, _, _, _) ->
  	Response = "<h2>HTTP Error 404 - Not Found</h2>",
  	{break, [{response, {404, Response}}]}.
  
  