anchor.diff:      end,
     Timeout = get_option(timeout),
     Request = [Type,URIwithBody,[{timeout,Timeout}],[]],
  -  %%io:format("Request=~p~n",[Request]),
     case get_option(show_uri) of
       true -> io:format("Accessing URI ~p~n",[URI]);
       false -> ok
  
positive.code:   http_uri:encode(String).
  
  http_request(PreURI,Type,Body,QueryParms,Link) ->
    %%io:format("URI: ~s cookies are ~p~n",[PreURI,httpc:which_cookies()]),
    URI =
      case QueryParms of
        [] -> PreURI;
  
negative.code: 	 EncodedParms = encode_generated_parameters(QueryParms),
  	 case re:split(PreURI,"\\?") of
  	   [_] ->
  	     {binary_to_list(PreURI),RequestType,Body,EncodedParms};
  	   [BinaryURI,BinaryParms] -> 
  	     {binary_to_list(BinaryURI),RequestType,Body,
  	      split_parms(BinaryParms)++EncodedParms}
  