anchor.diff:  										ok = mnesia:write(subscriber, NewEntry, write),
   										NewEntry;
   									{false, _, Password} ->
  -										throw(disabled);
  +										SessionsList = Entry#subscriber.session_attributes,
  +										NewEntry = Entry#subscriber{session_attributes = []},
  +										ok = mnesia:write(subscriber, NewEntry, write),
  +										{disabled, SessionsList};
   									{_, _, _} ->
   										throw(bad_password)
   								end;
  
positive.code: 	when
  		Identity :: string() | binary(),
  		Password :: string() | binary(),
  		Result :: {ok, #subscriber{}} | {error, Reason},
  		Reason :: out_of_credit | disabled | bad_password | not_found | term().
  %% @doc Authorize a subscriber.
  %%
  %% 	If the subscriber `enabled' field is `true' and have sufficient balance
  
negative.code: 	case mnesia:transaction(F) of
  		{atomic, #subscriber{} = S} ->
  			{ok, S};
  		{atomic, SessionAttributes} ->
  			{disabled, SessionAttributes};
  		{aborted, {throw, Reason}} ->
  			{error, Reason};
  		{aborted, Reason} ->
  