anchor.diff:  					     end
   				     end, List)),
   	     "</table>\n",
  -	     "<h1>Lgg till route</h1>\n",
  +	     "<h1>Lgg till medflyttning</h1>\n",
   	     "<form action=\"admin_www%3Aadd_route\" method=post>\n",
   	     "Nummer: <input type=\"text\" name=\"number\">\n",
  +	     "Prioritet: <input type=\"text\" name=\"priority\">\n",
  +	     "Adress: <input type=\"text\" name=\"address\">\n",
  +	     "<input type=\"submit\" value=\"Lgg till\">\n",
  +	     "</form>\n",
  +	     "<h1>Regler</h1>\n",
  +	     "<table cellspacing=0 border=1 cellpadding=4>\n",
  +	     "<tr><th>Nummer</th><th>Flaggor</th><th>Klass</th>",
  +	     "<th>Gr ut</th><th>Adress</th></tr>\n",
  +	     print_phones(lists:sort(fun (Elem1, Elem2) -> 
  +					     if
  +						 Elem1#regexproute.regexp < Elem2#regexproute.regexp ->
  +						     true;
  +						 true ->
  +						     false
  +					     end
  +				     end, Regexps)),
  +	     "</table>\n",
  +	     "<h1>Lgg till regel</h1>\n",
  +	     "<form action=\"admin_www%3Aadd_regexp\" method=post>\n",
  +	     "Regel: <input type=\"text\" name=\"number\">\n",
   	     "Prioritet: <input type=\"text\" name=\"priority\">\n",
   	     "Adress: <input type=\"text\" name=\"address\">\n",
   	     "<input type=\"submit\" value=\"Lgg till\">\n",
  
positive.code: -module(admin_www).
  -export([start/2, start/1, list_phones/2, list_users/2, add_user/2, change_user_form/2, change_user/2, add_route/2, del_route/2, wml/2, add_user_with_cookie/2, change_classes/2, list_numbers/2]).
  
  -include("phone.hrl").
  
  server_node() -> 'incomingproxy@granit.e.kth.se'.
  
  
negative.code: 	    Message;
  	{ok} ->
  	    {atomic, List} = phone:list_phones(),
  	    {atomic, Regexps} = database_regexproute:list(),
  	    [header(ok),
  	     "<h1>Nummertabell</h1>\n",
  	     "<table cellspacing=0 border=1 cellpadding=4>\n",
  	     "<tr><th>Nummer</th><th>Flaggor</th><th>Klass</th>",
  	     "<th>Gr ut</th><th>Adress</th></tr>\n",
  