anchor.diff:  							true ->
   								case {Enabled, Disconnect, Entry#subscriber.password} of
   									{true, false, Password} ->
  -										{Password, Attributes};
  +										Entry;
   									{true, true, Password} ->
   										NewEntry = Entry#subscriber{disconnect = false},
  -										mnesia:write(subscriber, NewEntry, write),
  -										{Password, Attributes};
  +										ok = mnesia:write(subscriber, NewEntry, write),
  +										NewEntry;
   									{true, false, MTPassword} when
   											Password == <<>>,
   											MTPassword =/= Password ->
  -										{MTPassword, Attributes};
  +										Entry;
   									{true, true, MTPassword} when
   											Password == <<>>,
   											MTPassword =/= Password ->
   										NewEntry = Entry#subscriber{disconnect = false},
  -										mnesia:write(subscriber, NewEntry, write),
  -										{MTPassword, Attributes};
  +										ok = mnesia:write(subscriber, NewEntry, write),
  +										NewEntry;
   									{false, _, Password} ->
   										throw(disabled);
   									{_, _, _} ->
  
positive.code: 		is_binary(Password) ->
  	F= fun() ->
  				case mnesia:read(subscriber, Identity, write) of
  					[#subscriber{buckets = Buckets, attributes = Attributes,
  							enabled = Enabled, disconnect = Disconnect} = Entry] ->
  						F2 = fun(#bucket{remain_amount = Amount}) when Amount > 0 ->
  										true;
  									(_) ->
  
negative.code: 				end
  	end,
  	case mnesia:transaction(F) of
  		{atomic, #subscriber{} = S} ->
  			{ok, S};
  		{aborted, {throw, Reason}} ->
  			{error, Reason};
  		{aborted, Reason} ->
  