anchor.diff:  	    ]
       end.
   
  +list_numbers(Env, Input) ->
  +    case check_auth(Env, true) of
  +	{error, Message} ->
  +	    Message;
  +	{ok} ->
  +	    {atomic, List} = phone:list_numbers(),
  +	    [header(ok),
  +	     "<h1>Alla allokerade nummer</h1>\n",
  +	     "<table cellspacing=0 border=1 cellpadding=4>\n",
  +	     "<tr><th>Nummer</th><th>Anvndarnamn</th><th>KTH-ID</th><th>Namn</th></tr>\n",
  +	     print_numbers_list(lists:sort(fun (Elem1, Elem2) -> 
  +						   if
  +						       Elem1#numbers.number < Elem2#numbers.number ->
  +							   true;
  +						       true ->
  +							   false
  +						   end
  +					   end, List)),
  +	     "</table>\n",
  +	     indexurl()
  +	    ]
  +    end.
  +
   list_phones(Env, Input) ->
       case check_auth(Env, true) of
   	{error, Message} ->
  
positive.code:      end | print_phones(List)].
  
  print_classes([]) ->
      [];
  print_classes([Class]) ->
      atom_to_list(Class);
  print_classes([Class | List]) ->
      atom_to_list(Class) ++ ", " ++ print_classes(List).
  
  print_numbers([]) ->
      [];
  print_numbers([Number]) ->
      Number;
  print_numbers([Number | List]) ->
  
negative.code: 		    Numberlist = get_numbers(User),
  		    [
  		     header(ok),
  		     "<h1>", username_to_cn(User), "(", User, ")", "</h1>\n",
  		     "<h2>Lsenord</h2>\n",
  		     "<form action=\"admin_www%3Achange_user\" method=post>\n",
  		     "<input type=\"hidden\" name=\"user\" value=\"", User, "\">\n",
  