anchor.diff:  -export([session_attributes/1]).
   
   -include("ocs.hrl").
  +-include("ocs_log.hrl").
   -include_lib("radius/include/radius.hrl").
   
   %% support deprecated_time_unit()
  
positive.code: 	{disabled, SessionList};
  rate6(#subscriber{session_attributes = SessionList,
  		buckets = Buckets} = Subscriber1, _Flag,
  		Charge, Charged, Reserve, Reserved, SessionId)
  		when Charged < Charge; Reserved <  Reserve ->
  	NewBuckets = refund(SessionId, Buckets),
  	Subscriber2 = Subscriber1#subscriber{buckets = NewBuckets,
  
negative.code: 			get_reserve(Price)
  	end,
  	rate5(Subscriber, Price, Validity, interim,
  			0, ReserveAmount, SessionAttributes, Rated);
  rate4(_Protocol, Subscriber, #price{units = Units} = Price, Validity,
  		Flag, DebitAmounts, ReserveAmounts, SessionAttributes, Rated) ->
  	DebitAmount = case lists:keyfind(Units, 1, DebitAmounts) of
  		{_, DebitUnits} ->
  			DebitUnits;
  