anchor.diff:      NKey = httpd_util:to_lower(Key),
       add2(UrlParam, {NKey, none}).
   
  -add(UrlParam, Key, Value) ->
  +add(UrlParam, Key, Value) when is_record(UrlParam, url_param), is_list(Key) ->
       NKey = httpd_util:to_lower(Key),
       NValue = httpd_util:to_lower(Value),
       add2(UrlParam, {NKey, NValue}).
   
   
  -add2(UrlParam, {Key, Value}) ->
  +add2(UrlParam, {Key, Value}) when is_record(UrlParam, url_param), is_list(Key) ->
       DB = UrlParam#url_param.pairs,
       NewDB = key_val_db:add(DB, Key, Value),
  -    #url_param{ pairs = NewDB }. 
  +    #url_param{ pairs = NewDB }.
   
   %--------------------------------------------------------------------
   %% Function: find(Param, Key)
  
positive.code:     io:format("test: to_string_list/1 - 3~n"),
      Urlparam3 = to_norm(["foo%3d=bAr", "Ba%3DR", "lr", "a=43"]),
      ["foo%3D=bar", "ba%3Dr", "lr=true", "a=43"] = to_string_list(Urlparam3),
      
  
      %% test to_string
      %%---------------------------------------------------------------
      %% test that case and missing value part are handled properly
      io:format("test: to_string/1 - 1~n"),
      ";foo=bar;bar;lr=true;a=43" = to_string(Urlparam1),
      %% test empty param 
      io:format("test: to_string/1 - 2~n"),
      "" = to_string(Urlparam2),
  
  
negative.code: %% Descrip.: find the Key-Val pair to remove from Param
  %% Returns : url_param record
  %%--------------------------------------------------------------------
  remove(Param, Key) when is_record(Param, url_param), is_list(Key) ->
      Data = Param#url_param.pairs,
      CKey = httpd_util:to_lower(Key),
      Res = key_val_db:rm(Data, CKey),
      Param#url_param{pairs = Res}.
  
  
  %%====================================================================
  %% Test functions
  %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: test/0
  %% Descrip.: autotest callback
  %% Returns : ok | throw()
  %%--------------------------------------------------------------------
  test() ->
      %% test to_norm
  