anchor.diff:  					case RequestType of
   						?initial ->
   							SA = update_session(SessionId, SessionIdentification, SessionAttributes, []),
  -							case reserve_units1(?initial, Product, UnitType,
  +							case reserve_units1(?initial, Product, Subscriber, UnitType,
   									false, ReserveAmount, DebitAmount, Validity, Buckets) of
   								out_of_credit ->
   									mnesia:write(Subscriber#subscriber{session_attributes = []}),
  
positive.code: 			end
  	end.
  %% @hidden
  determinate_units([#product{price = Prices}], Type, Flag, DebitAmount, Validity, Buckets) ->
  	case charge(Type, DebitAmount, Flag, Buckets) of
  		{Charged, NewBuckets} when Charged < DebitAmount ->
  			case lists:keyfind(usage, #price.type, Prices) of
  				#price{units = Type, size = Size, amount = Price} ->
  					purchase(Type, Price, Size, DebitAmount - Charged, Validity, false, NewBuckets);
  
negative.code: 					throw(price_not_found)
  			end;
  		{Charged, NewBuckets} ->
  			mnesia:write(Subscriber#subscriber{buckets = NewBuckets}),
  			{Charged, NewBuckets}
  	end.
  
  