anchor.diff:          {ok, User} when is_list(User) ->
               case getPeer(User) of
                   undefined ->
  -                    Headers1 = removeCookieIfPresent("eWebProxy", Env),
  -                    Headers2 = removeCookieIfPresent("eWebToken", Env, Headers1),
  -                    SessionHdrList2 =
  -                        lists:keystore(SessionId, 1,
  -                                       SessionHdrList,
  -                                       {SessionId, Headers2}),
  -                    {false, State#state{headers = SessionHdrList2}};
  +                    {notConnected, State};
                   Pid ->
                       Headers =
                           case find("token", Dict) of
  
positive.code:                      getRootDir/0, apply/4, default/2, addDateTime/2,
                       tryInt/1]).
  
  %%%===================================================================
  %%% API
  %%%===================================================================
  
negative.code: toFlt(prio,   ?descNA)         -> ?prioNone;
  toFlt(_Type,  Desc)            -> Desc.
  
  unAuthorized(UserName) ->
      htmlTag([headTag([titleTag(["eTodo - ", UserName])]),
               bodyTag(["<h1>Unauthorized</h1>"
                        "This server could not verify that you are authorized "
                        "to access the document you requested. Either you "
                        "supplied the wrong credentials (e.g., bad password), "
                        "or your browser doesn't understand how to supply the "
                        "credentials required."])]).
  