anchor.diff:  					case proplists:get_value(response, Data) of
   						undefined ->
   							{_, Resource} = lists:keyfind(resource, 1, Data),
  -							content_type_available(Headers, Body, Uri, Resource, ModData);
  +							{_, ContentType} = lists:keyfind(content_type, 1, Data),
  +							content_type_available(Headers, ContentType, Body, Uri,
  +									Resource, ModData);
   						_Response ->
   							{proceed,  Data}
   					end
  
positive.code: 	end.
  
  %% @hidden
  content_type_available(Headers, 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, "/"));
  				false ->
  					Response = "<h2>HTTP Error 415 - Unsupported Media Type</h2>",
  					{break, [{response, {415, Response}}]}
  			end;
  		_ ->
  			do_patch(Uri, Body, Resource, undefined, ModData)
  	end.
  
  %% @hidden
  
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}}]}.
  
  