anchor.diff:  %% XXX should certain chars in the "value" part be hex encoded ?
   %%--------------------------------------------------------------------
   dict_to_param(Dict) ->
  -    list_to_parameters(lists:keysort(1, dict:to_list(Dict))).
  -
  -list_to_parameters([]) ->
  -    [];
  -list_to_parameters([{Key, Value}]) ->
  -    [Key ++ "=" ++ Value];
  -list_to_parameters([{Key, Value} | Rest]) ->
  -    [Key ++ "=" ++ Value | list_to_parameters(Rest)].
  -
  -
  -%%--------------------------------------------------------------------
  -%% Function:
  -%% Descrip.:
  -%% Returns :
  +    list_to_parameters2(lists:keysort(1, dict:to_list(Dict)), []).
  +
  +%% list_to_parameters2/2 - part of dict_to_param/1
  +list_to_parameters2([{Key, []} | T], Res) ->
  +    %% Empty value (like "lr" or "rport")
  +    list_to_parameters2(T, [Key | Res]);
  +list_to_parameters2([{Key, Value} | T], Res) ->
  +    %% Non-empty value
  +    list_to_parameters2(T, [Key ++ "=" ++ Value | Res]);
  +list_to_parameters2([], Res) ->
  +    lists:reverse(Res).
  +
  +
  +%%--------------------------------------------------------------------
  +%% Function: httparg(String)
  +%% Descrip.: Make dict out of parameters separated by ampersand (&).
  +%% Returns : dict()
  +%% Note    : Only used in admin_www. Perhaps move there?
   %%--------------------------------------------------------------------
   httparg(String) ->
       Headers = string:tokens(String, "&"),
  
positive.code: comma(Parsed, [], false, false) ->
      [lists:reverse(string:strip(Parsed, both))].
  
  %--------------------------------------------------------------------
  %% Function: expires(Header)
  %%           Header = keylist record()
  %% Descrip.: get the value of the "Expires" header
  
negative.code: 	    {Displayname, URI}
      end.
  
  %% part of name_header/1. XXX this function fails on escaped quotes inside String
  %% XXX there is a similar function in the module contact. Merge them.
  parse_displayname(String) ->
      LeftQuoteIndex = string:chr(String, $\"),
      case LeftQuoteIndex of
  