anchor.diff:  			{error, Reason}
   	end.
   %% @hidden
  -update_session1(AcctSessionId, SessionIdentification, SessionLists) ->
  -	update_session2(AcctSessionId, SessionIdentification, SessionLists, []).
  -%% @hidden
  -update_session2(_AcctSessionId, _SessionIdentification, [], Acc) ->
  -	Acc;
  -update_session2(AcctSessionId, SessionIdentification, [{TS, SessionAttributes} = H | T] = S, Acc) ->
  -	case update_session3(SessionIdentification, SessionAttributes) of
  +update_session1(SessionAttributes, SessionIdentification, SessionLists) ->
  +	update_session2(SessionAttributes, SessionIdentification, SessionLists, []).
  +%% @hidden
  +update_session2(SessionAttributes, _SessionIdentification, [], Acc) ->
  +	Now = erlang:system_time(?MILLISECOND),
  +	[{Now, SessionAttributes} | Acc];
  +update_session2(SessionAttributes, SessionIdentification, [{_, Attributes} = H | T] = S, Acc) ->
  +	case update_session3(SessionIdentification, Attributes) of
   		true ->
  -			case lists:keyfind(?AcctSessionId, 1, SessionAttributes) of
  -				{_, _} ->
  -					S ++ Acc;
  -				false ->
  -					Identification = radius_attributes:store(?AcctSessionId,
  -							AcctSessionId, SessionAttributes),
  -					NewAcc = [{TS, Identification} | T],
  -					NewAcc ++ Acc
  -			end;
  +			S ++ Acc;
   		false ->
  -			update_session2(AcctSessionId, SessionIdentification, T, [H | Acc])
  +			update_session2(SessionAttributes, SessionIdentification, T, [H | Acc])
   	end.
   %% @hidden
   update_session3([], _SessionAttributes) ->
  
positive.code: 			update_session3(T, SessionAttributes)
  	end.
  
  
negative.code: 				Peer :: string()}), Value :: (Fsm :: pid())),
  		disc_id = 1 :: integer()}).
  -type state() :: #state{}.
  
  %% support deprecated_time_unit()
  -define(MILLISECOND, milli_seconds).
  %-define(MILLISECOND, millisecond).
  
  %%----------------------------------------------------------------------
  %%  The ocs_radius_acct_port_server API
  