anchor.diff:      end.
       
   set_admin(User, "true") ->
  -    {Password, Numberlist, Flags, Classes} = get_passnumber(User),
  +    {Password, Flags, Classes} = get_pass(User),
       case lists:member(admin, Flags) of
   	false ->
   	    phone:set_user_flags(User, [admin | Flags]);
  
positive.code: 	    true
      end;
  set_admin(User, "false") ->
      {Password, Numberlist, Flags, Classes} = get_passnumber(User),
      case lists:member(admin, Flags) of
  	false ->
  	    true;
  
negative.code:      | print_users(List)].
  
  
  get_pass(User) ->
      case phone:get_user(User) of
  	{atomic, []} ->
  	    {none, [], []};
  	{atomic, [A]} ->
  	    A;
  	{aborted, _} ->
  	    {none, [], []}
      end.
  
  get_numbers(User) ->
      case phone:get_number_for_user(User) of
  	{atomic, Numbers} ->
  	    Numbers;
  	{aborted, _} ->
  	    []
      end.
  
  check_auth(Env, WantAdmin) ->
  