anchor.diff:              setCookie("eReferer", Referer, HtmlPage);
           _ ->
               Redirect = getHost(Env) ++ "/eTodo/eWeb:login",
  -            "location: " ++ Redirect ++ "\r\n\r\n"
  +            ["location: ", Redirect, "\r\n\r\n"]
       end;
   redirect(Page, Env) ->
       Redirect = getHost(Env) ++ "/eTodo/eWeb:" ++ Page,
  -    "location: " ++ Redirect ++ "\r\n\r\n".
  +    ["location: ", Redirect, "\r\n\r\n"].
   
   
   getHost(Env) ->
  
positive.code: removeCookie(Cookie) ->
      %% The cookie should be removed, set expire to now.
      ExpDTime = httpd_util:rfc1123_date(dateTime()),
      "Set-Cookie: " ++ Cookie ++ "=\"\";"
          "Expires=" ++ ExpDTime ++ "; httpOnly\r\n\r\n".
  
  removeCookie(Cookie, Header) ->
      %% The cookie should be removed, set expire to now.
      ExpDTime = httpd_util:rfc1123_date(dateTime()),
      "Set-Cookie: " ++ Cookie ++ "=\"\";"
          "Expires=" ++ ExpDTime ++ "; httpOnly\r\n"
          ++ Header.
  
  removeCookieIfPresent(Cookie, Env) ->
      case getCookie(Cookie, Env) of
  
negative.code: setCookie(Cookie, Value) ->
      EDTime   = addDateTime(dateTime(), {{0,0,7}, {0,0,0}}),
      ExpDTime = httpd_util:rfc1123_date(EDTime),
      ["Set-Cookie: ", Cookie, "=", Value, "; Expires=", ExpDTime,
       "; httpOnly\r\n\r\n"].
  setCookie(Cookie, Value, Header) ->
      EDTime   = addDateTime(dateTime(), {{0,0,7}, {0,0,0}}),
      ExpDTime = httpd_util:rfc1123_date(EDTime),
      ["Set-Cookie: ",  Cookie, "=", Value, "; Expires=", ExpDTime,
       "; httpOnly\r\n"] ++ Header.
  
  %%--------------------------------------------------------------------
  %% @private
  