anchor.diff:      ?DEBUG("UNLOCK ~p",[A#arg.server_path]),
       Path = davpath(A),
       Id = h_locktoken(A),
  -    %?DEBUG(" Id=~p",[Id]),
  +    %%?DEBUG(" Id=~p",[Id]),
       case yaws_runmod_lock:unlock(Path,Id) of
           ok -> status(204);
           not_found ->
  
positive.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;
                          _ -> ""
  
negative.code: handle('POST',A) ->
      ?DEBUG("POST ~p",[A#arg.server_path]),
      _Path = davpath(A),
      %% TODO POST for collections: RFC5995
      status(501);
  handle("LOCK",A) ->
      %% TODO Multi resource lock (lock on collection) returns 207
      %%      (multi-status) when failing
      ?DEBUG("LOCK ~p",[A#arg.server_path]),
      Name = A#arg.server_path,
      Path = davpath(A),
      %% check if file/collection exists and create if not so
      %% RFC4918 - 9.10.4
      {Status,R} = case file:read_file_info(Path) of
              {ok, F} when (F#file_info.type == directory) or (F#file_info.type == regular) ->
                  {200,#resource{ name = Name, info = F}};
  