anchor.diff:          [] ->
               HasDav = ?sc_has_dav(get(sc)),
               ["Allow: GET, POST, OPTIONS, HEAD",
  -             if HasDav == true ->
  -                     ", PUT, PROPFIND, MKCOL, MOVE, COPY\r\n";
  -                true ->
  -                     "\r\n"
  +             if HasDav == true -> ", PUT, PROPFIND, MKCOL, MOVE, COPY\r\n";
  +                true           -> "\r\n"
                end];
           _ ->
               ["Allow: ",
                lists:foldl(fun(M, "") -> atom_to_list(M);
  -                            (M, Acc) -> atom_to_list(M) ++ ", " ++ Acc end,
  -                         "", lists:reverse(Options)),
  +                            (M, Acc) -> atom_to_list(M) ++ ", " ++ Acc
  +                         end, "", lists:reverse(Options)),
                "\r\n"]
       end.
   make_server_header() ->
  
positive.code: 
  stringdate_to_datetime1([A, B, $\s |T]) ->
      stringdate_to_datetime2(T, list_to_integer([A,B]));
  
  stringdate_to_datetime1([A, $\s |T]) ->
      stringdate_to_datetime2(T, list_to_integer([A])).
  
  
  
  stringdate_to_datetime2([M1, M2, M3, $\s , Y1, Y2, Y3, Y4, $\s ,
                           H1, H2, $:, Min1, Min2,$:,
                           S1, S2,$\s ,$G, $M, $T|_], Day) ->
      {{list_to_integer([Y1,Y2,Y3,Y4]),
  
negative.code:         Err ->
              Err
      end.
  
  
  upto(_I, [])    -> [];
  upto(0,  _)     -> " ....";
  upto(_I, [0|_]) -> " ....";
  upto(I,  [H|T]) -> [H|upto(I-1, T)].
  
  
  to_string(X) when is_float(X)   -> io_lib:format("~.2.0f",[X]);
  to_string(X) when is_integer(X) -> integer_to_list(X);
  to_string(X) when is_atom(X)    -> atom_to_list(X);
  to_string(X)                    -> lists:concat([X]).
  
  
  to_list(L) when is_list(L) -> L;
  to_list(A) when is_atom(A) -> atom_to_list(A).
  
  
  integer_to_hex(I) ->
      case catch erlang:integer_to_list(I, 16) of
          {'EXIT', _} -> old_integer_to_hex(I);
          Int         -> Int
      end.
  
  
  old_integer_to_hex(I) when I < 10 ->
      integer_to_list(I);
  old_integer_to_hex(I) when I < 16 ->
      [I-10+$A];
  old_integer_to_hex(I) when I >= 16 ->
      N = trunc(I/16),
      old_integer_to_hex(N) ++ old_integer_to_hex(I rem 16).
  
  
  hex_to_integer(Hex) ->
      erlang:list_to_integer(Hex, 16).
  
  
  string_to_hex(String) ->
      HEXC = fun (D) when D > 9 -> $a + D - 10;
                 (D)            -> $0 + D
             end,
      lists:foldr(fun(E, Acc) -> [HEXC(E div 16),HEXC(E rem 16)|Acc] end,
                  [], String).
  
  
  hex_to_string(Hex) ->
      DEHEX = fun (H) when H >= $a -> H - $a + 10;
  