anchor.diff:  	Bin = radius_attributes:codec(Attributes),
   	add_subscriber(Subscriber, Password, Bin, Balance);
   add_subscriber(Subscriber, Password, Attributes, Balance)
  -		when is_list(Subscriber), is_binary(Password),
  +		when is_binary(Subscriber), is_binary(Password),
   		is_binary(Attributes), is_integer(Balance) ->
   	F1 = fun(F, <<C, Rest/binary>>)
   					when (((C >= $a) and (C =< $z)) or ((C >= $2) and (C =< $9))),
  
positive.code: 		Password :: binary() | string()) -> ok.
  %% @doc Delete a subscriber from the database.
  %%
  delete_subscriber(Subscriber, Password) when is_binary(Subscriber) ->
  	delete_subscriber(binary_to_list(Subscriber), Password);
  delete_subscriber(Subscriber, Password) when is_list(Password) ->
  	delete_subscriber(Subscriber, list_to_binary(Password));
  delete_subscriber(Subscriber, Password) when is_list(Subscriber),
  		is_binary(Password) ->
  	F = fun() ->
  		mnesia:delete(subscriber, Subscriber, write)
  
negative.code: %%
  %% 	An initial account `Balance' value may be provided.
  %%
  add_subscriber(Subscriber, Password, Attributes, Balance)
  		when is_list(Subscriber) ->
  	add_subscriber(list_to_binary(Subscriber), Password, Attributes, Balance);
  add_subscriber(Subscriber, Password, Attributes, Balance)
  		when is_list(Password) ->
  	add_subscriber(Subscriber, list_to_binary(Password), Attributes, Balance);
  