anchor.diff:  		alteration = #alteration{type = recurring, period = Period, units = Units,
   		size = Size, amount = Amount}} | T]) when Period /= undefined, Units == octets;
   		Units == seconds; Units == messages ->
  -	{NewPayments, NewBuckets1} = dues(Payments, Now, Buckets, Name, Period, Amount),
  +	{NewPayments, NewBuckets1} = dues(Payments, Now, Buckets, Name, Period, ProdRef, Amount),
   	N = erlang:unique_integer([positive]),
  -	NewBuckets2 = charge(Amount, [#bucket{id = generate_bucket_id(),
  +	NewBuckets2 = charge(ProdRef, Amount, [#bucket{id = generate_bucket_id(),
   			units = Units, remain_amount = Size, product = [ProdRef],
   			termination_date = end_period(Now, Period), last_modified = {Now, N}}
   			| NewBuckets1]),
  
positive.code: get_params5(_, _, _, false) ->
  	{error, httpd_group_undefined}.
  
  -spec charge(Amount, Buckets) -> Buckets
  	when
  		Amount :: non_neg_integer(),
  		Buckets :: [#bucket{}].
  %% @doc Charge `Amount' to `Buckets'.
  %% @private
  charge(Amount, Buckets) ->
  	charge(Amount, Buckets, []).
  %% @hidden
  charge(0, T, Acc) ->
  	lists:reverse(Acc) ++ T;
  charge(Amount, [#bucket{units = cents,
  		remain_amount = Remain} = B | T], Acc) when Amount < Remain ->
  	lists:reverse(Acc) ++ [B#bucket{remain_amount = Remain - Amount} | T];
  charge(Amount, [#bucket{units = cents,
  		remain_amount = Remain} = B], Acc) ->
  	lists:reverse([B#bucket{remain_amount = Remain - Amount} | Acc]);
  charge(Amount, [H | T], Acc) ->
  	charge(Amount, T, [H | Acc]);
  charge(Amount, [], Acc) ->
  	lists:reverse([#bucket{id = generate_bucket_id(),
  			units = cents, remain_amount = - Amount} | Acc]).
  
  %% @private 
  generate_bucket_id() ->
  
negative.code: 		[#price{type = usage, alteration = #alteration{type = one_time,
  			units = Units, size = Size, amount = AlterationAmount}} | T]) ->
  	N = erlang:unique_integer([positive]),
  	NewBuckets = charge(ProdRef, AlterationAmount,
  		[#bucket{id = generate_bucket_id(), units = Units,
  			remain_amount = Size, product = [ProdRef], last_modified = {Now, N}}
  			| Buckets]),
  