anchor.diff:  -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]).
  +-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, add_regexp/2, del_regexp/2]).
   
   -include("phone.hrl").
  +-include("database_regexproute.hrl").
   
   server_node() -> 'incomingproxy@granit.e.kth.se'.
   
  
positive.code: 	    end
      end.
  
  del_route(Env, Input) ->
      case check_auth(Env, true) of
  	{error, Message} ->
  
negative.code: 					     end
  				     end, List)),
  	     "</table>\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",
  