anchor.diff:      mod_esi:deliver(SessionId, HtmlPage).
   
   link(SessionId, Env, Input) ->
  -    FileData = gen_server:call(?MODULE, {link, SessionId, Env, Input}),
  +    FileData = call({link, SessionId, Env, Input}),
       mod_esi:deliver(SessionId, FileData).
   
   login(SessionId, Env, Input) ->
  
positive.code: %% @spec userOK(User, Message) -> true | false.
  %% @end
  %%--------------------------------------------------------------------
  userOK(_User, _Message, "")                                       -> false;
  userOK(_User, {show, _SessionId, _Env, _Input}, _WUser)           -> true;
  userOK(_User, {showTimeReport, _SessionId, _Env, _Input}, _WUser) -> true;
  userOK(_User, {link, _SessionId, _Env, _Input}, _WUser)           -> true;
  userOK(User, {_Msg, _SessionId, _Env, _Input}, User)              -> true;
  userOK(_User, {_Msg, _SessionId, _Env, _Input}, _WUser)           -> false.
  
  
negative.code:   when (Message == index)      or
         (Message == mobile)     or
         (Message == show)       or
         (Message == link)       or
         (Message == showStatus) or
         (Message == showLoggedWork) ->
      Dict = makeDict(Input),
  