anchor.diff:  	{true | halt(), ReqData :: rd(), Context :: state()}.
   %% @doc POST processing function.
   add_subscriber(ReqData, #state{subscriber = Subscriber,
  -		current_password = Password, attributes = ArrayAttributes} = Context) ->
  +		current_password = Password, attributes = ArrayAttributes,
  +		balance = Balance} = Context) ->
   	try
  -	case catch ocs:add_subscriber(Subscriber, Password, []) of
  +	case catch ocs:add_subscriber(Subscriber, Password,
  +			ArrayAttributes, Balance) of
   		ok ->
   			{true, ReqData, Context};
   		{error, Reason} ->
  
positive.code: 		{subscriber :: string(),
  		current_password :: string(),
  		new_password :: string(),
  		attributes :: radius_attributes:attributes()}).
  
  %%----------------------------------------------------------------------
  %%  webmachine callbacks
  
negative.code: 		{_, Subscriber} = lists:keyfind("subscriber", 1, Object),
  		{_, Password} = lists:keyfind("password", 1, Object),
  		{_, {array, ArrayAttributes}} = lists:keyfind("attributes", 1, Object),
  		{_, Balance} = lists:keyfind("balance", 1, Object),
  		NewContext = Context#state{subscriber = Subscriber, current_password = Password,
  			attributes = ArrayAttributes, balance = Balance},
  		{Subscriber, ReqData, NewContext}
  	catch
  		_Error ->
  			{{halt, 400}, ReqData, Context}
  