anchor.diff:      Mediatype = case F#file_info.type of
             directory ->
                 "httpd/unix-directory";
  -              %"text/html"; % this should represent the mediatype of a GET on a collection
  +              %%"text/html"; % this should represent the mediatype of a GET on a collection
             _ ->
                 Name = R#resource.name,
                 Ext = filename:extension(Name),
  
positive.code:     case lists:keysearch("If", 3, Hs) of
          {value, {_,_,"If",_,If}} ->
              List = if_parse(If,untagged),
              %?DEBUG(" ~p",[List]),
              case List of
                  [{_Resource,[{true,state,Locktoken}]}] -> Locktoken;
                  _ -> throw(412)
  
negative.code:             %% check on supported namespaces:
              %% - http://www.w3.org/TR/RC-xml-names#dt-prefix
              %% - although strict, not very forgiving towards clients
              %%NS = H#xmlElement.namespace,
              %%case NS#xmlNamespace.default of
              %%    "" ->
              %%        throw(400);
              %%    _ -> ok
              %%end,
              Value = case H#xmlElement.content of
                          [C] when is_record(C,xmlText) -> C#xmlText.value;
                          _ -> ""
  