anchor.diff:  %% @doc Check session and page expiration, periodically called by the session manager
   check_expire(Now, Pid) ->
       gen_server:cast(Pid, {check_expire, Now}).
  +
  +
  +%% @spec get_attach_state(Context::#context) -> [] attach states
  +%% @doc Check the state of all the attached pages.
  +get_attach_state(Pid) when is_pid(Pid) ->
  +    gen_server:call(Pid, get_attach_state);
  +get_attach_state(Context) ->
  +    get_attach_state(Context#context.session_pid).
   
   
   %% @doc Dump the session details
  
positive.code:     Context2 = Context1#context{page_id=NewPageId, page_pid=NewPage#page.page_pid},
      {reply, Context2, Session1};
  
  handle_call(Msg, _From, Session) ->
      {stop, {unknown_cast, Msg}, Session}.
  
  
negative.code:         {value, Page} -> Page;
          false -> undefined
      end.
  
  