anchor.diff:  	end.
   %% @hidden
   product_unit_of_measure6(_UnitsOfMeasure) ->
  -	{octets, 0}.
  +	{undefined, undefined}.
  +
  +-spec product_size(UnitsFrom, UnitsTo, Size) -> Result
  +	when
  +		UnitsFrom	:: undefined | atom(), % gb | mb | second | cents
  +		UnitsTo		:: octets,
  +		Size			:: undefined | pos_integer(),
  +		Result		:: integer().
  +%% @private
  +product_size(UnitsFrom, octets, Size) when
  +		UnitsFrom == undefined; Size == undefinedi ->
  +	0;
  +product_size(gb, octets, Size) ->
  +	Size * 1000000000;
  +product_size(mb, octets, Size) ->
  +	Size * 1000000;
  +product_size(_, _, Size) ->
  +	Size.
   
   -spec recurring_charge_period(RCPeriod) -> Result
   	when
  
positive.code: 	when
  		UnitsOfMeasure	:: string(),
  		Result			:: {Units, Size},
  		Units				:: unit_of_measure(),
  		Size				:: pos_integer().
  %% @doc return units type and size of measurement of a product
  %% @private
  product_unit_of_measure(UnitsOfMeasure) ->
  	LowerUOM = string:to_lower(UnitsOfMeasure),
  	product_unit_of_measure1(LowerUOM).
  
negative.code: 						{_, ProdAlterAmount} = lists:keyfind("taxIncludedAmount", 1,  ProdAlterPriceObj),
  						ProdAlterDescirption = proplists:get_value("description", ProdAlterObj, ""),
  						{ProdAlterUnits, ProdAlterSize} = product_unit_of_measure(ProdAlterUOMeasure),
  						AlterSize = product_size(ProdAlterUnits, octets, ProdAlterSize),
  						ProdAlterSTime = timestamp(ProdAlterSTimeISO),
  						ProdAlterPriceType = price_type(ProdAlterPriceTypeS),
  						Alteration = #alteration{name = ProdAlterName, description = ProdAlterDescirption,
  							units = ProdAlterUnits, size = AlterSize, amount = ProdAlterAmount},
  						Price2 = Price1#price{alteration = Alteration},
  						[Price2 | AccIn]
  					end
  