anchor.diff:  	    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} ->
  
positive.code:     end.
  
  parse_classes(String) ->
      [internal, mobile_or_pay, national, local, almostinternal].
  
  add_user(Env, Input) ->
      case check_auth(Env, true) of
  
negative.code: 		    [
  		     header(ok),
  		     "<h1>", User, "</h1>\n",
  		     "<h2>Lsenord</h2>\n",
  		     "<form action=\"admin_www%3Achange_user\" method=post>\n",
  		     "<input type=\"hidden\" name=\"user\" value=\"", User, "\">\n",
  		     "<input type=\"password\" name=\"password\" size=\"20\">\n",
  		     "<input type=\"submit\" value=\"ndra lsenord\">\n",
  		     "</form>\n",
  		     "<h2>Nummer</h2>\n",
  		     "<form action=\"admin_www%3Achange_user\" method=post>\n",
  		     "<input type=\"hidden\" name=\"user\" value=\"", User, "\">\n",
  		     "<input type=\"text\" name=\"numbers\" size=\"40\" value=\"",
  