anchor.diff:      end.
   
   parse_classes(String) ->
  -    [internal, mobile_or_pay, national, local, almostinternal].
  +    [internal].
   
   add_user(Env, Input) ->
       case check_auth(Env, true) of
  
positive.code:     ["Content-type: text/plain\r\n\r\n",
       case {Userfind, Passwordfind, Cookiefind} of
  	 {error, _, _} ->
  	     "FORBIDDEN";
  	 {_, error, _} ->
  	     "FORBIDDEN";
  	 {_, _, error} ->
  	     "FORBIDDEN";
  	 {{ok, User}, {ok, Password}, {ok, Cookie}} ->
  	     Classes = [internal],
  	     phone:insert_user(User, Password, [], [], Classes),
  	     "CREATED"
       end
      ].
  
  
negative.code: 	    end
      end.
  
  findclasses(Args) ->
      List = lists:filter(fun (A) ->
  				case A of
  				    {"class_" ++ Class, _} ->
  					true;
  				    _ ->
  					false
  				end
  			end,
  			dict:to_list(Args)),
      lists:map(fun (A) ->
  		      case A of
  			  {"class_" ++ Class, _} ->
  			      list_to_atom(Class)
  		      end
  	      end,
  	      List).
  
  change_classes(Env, Input) ->
      case check_auth(Env, true) of
  	{error, Message} ->
  	    Message;
  	{ok} ->
  	    Args = sipheader:httparg(Input),
  	    Userfind = dict:find("user", Args),
  	    Classes = findclasses(Args),
  	    case Userfind of
  		error ->
  		    [header(ok), "Du mste ange ett anvndarnamn"];
  		{ok, User} ->
  		    phone:set_user_classes(User, Classes),
  		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_users")]
  	    end
      end.
  
  wml(Env, Input) ->
      case check_auth(Env, true) of
  	{error, Message} ->
  