anchor.diff:  
       case catch mod_auth:get_user(UserName, [{dir, ?directory}, {port, Port}]) of
           {ok, #httpd_user{password = Password}} ->
  -            Cookie   = createCookie(Env, UserName, Key),
  -            HtmlPage = setCookie("eSessionId", Cookie, redirect("index", Env)),
  -            {reply, HtmlPage, State};
  +            Cookie    = createCookie(Env, UserName, Key),
  +            Referer   = default(getCookie("eReferer", Env), "index"),
  +            HtmlPage1 = setCookie("eSession", Cookie, redirect(Referer, Env)),
  +            HtmlPage2 = removeCookieIfPresent("eReferer", Env, HtmlPage1),
  +            {reply, HtmlPage2, State};
           _ ->
  -            HtmlPage = removeCookie("eSessionId", redirect("login", Env)),
  +            HtmlPage = removeCookie("eSession", redirect("login", Env)),
               {reply, HtmlPage, State}
       end;
   
  
positive.code: %% @spec userOK(User, Message) -> true | false.
  %% @end
  %%--------------------------------------------------------------------
  userOK(_User, {show, _SessionId, _Env, _Input}, _WUser)           -> true;
  userOK(_User, {showTimeReport, _SessionId, _Env, _Input}, _WUser) -> true;
  userOK(_User, {link, _SessionId, _Env, _Input}, _WUser)           -> true;
  
negative.code:                       "supplied the wrong credentials (e.g., bad password), "
                        "or your browser doesn't understand how to supply the "
                        "credentials required."])]).
  redirect("login", Env) ->
      case proplists:get_value(script_name, Env, "/eTodo/eWeb:index") of
          "/eTodo/eWeb:" ++ Referer ->
              Redirect = getHost(Env) ++ "/eTodo/eWeb:login",
              HtmlPage = "location: " ++ Redirect ++ "\r\n\r\n",
              setCookie("eReferer", Referer, HtmlPage);
          _ ->
              Redirect = getHost(Env) ++ "/eTodo/eWeb:login",
              "location: " ++ Redirect ++ "\r\n\r\n"
      end;
  redirect(Page, Env) ->
      Redirect = getHost(Env) ++ "/eTodo/eWeb:" ++ Page,
      "location: " ++ Redirect ++ "\r\n\r\n".
  
  
  getHost(Env) ->
      HttpHost = "https://" ++ proplists:get_value(http_host, Env, ""),
  