anchor.diff:  to_print(To) ->
       name_print(To).
   
  +name_print({_, wildcard, Parameters}) ->
  +    sipurl:print({wildcard, Parameters});
  +    
   name_print({none, URI}) ->
       sipurl:print(URI);
   
  
positive.code: 		      Protocol ++ " " ++ sipurl:print_hostport(Host, Port) ++ print_parameters(Parameters)
  	      end, Via).
  
  via_params({Protocol, Hostport, Parameters}) ->
      param_to_dict(Parameters).
  
  
negative.code:     L = lists:map(fun(A) ->
  			  H = string:strip(A,left),
  			  Index = string:chr(H, $=),
  			  Name = httpd_util:to_lower(string:substr(H, 1, Index - 1)),
  			  Value = string:substr(H, Index + 1),
  			  {Name, unescape(Value)}
  		  end, Param),
      dict:from_list(L).    
  
  dict_to_param(Dict) ->
      list_to_parameters(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)].
      
  
  httparg(String) ->
      Headers = string:tokens(String, "&"),
      param_to_dict(Headers).
  