anchor.diff:  	     "<input type=\"text\" name=\"user\" size=\"12\">\n",
   	     "<input type=\"text\" name=\"phone\" size=\"4\">\n",
   	     "<input type=\"submit\" value=\"Add\">\n",
  -	     "</form>\n"
  +	     "</form>\n",
  +	     "<ol>\n",
  +	     "<li>internal: samtal inom KTH\n",
  +	     "<li>almostinternal: samtal till t.ex. SU, nummer som brjar p 0\n",
  +	     "<li>local: lokalsamtal inom 08-omrdet\n",
  +	     "<li>national: samtal inom Sverige\n",
  +	     "<li>international: utlandssamtal\n",
  +	     "<li>mobile_or_pay: alla samtal som brjar p 0007\n",
  +	     "</ol>\n"
   	    ]
       end.
   
  
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]).
  
  server_node() -> 'incomingproxy@granit.e.kth.se'.
  
  
negative.code: 		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_users")]
  	    end
      end.
  
  add_route(Env, Input) ->
      case check_auth(Env, true) of
  	{error, Message} ->
  	    Message;
  	{ok} ->
  	    Args = sipheader:httparg(Input),
  	    Numberfind = dict:find("number", Args),
  	    Priorityfind = dict:find("priority", Args),
  	    Addressfind = dict:find("address", Args),
  	    case {Numberfind, Priorityfind, Addressfind} of
  		{error, _, _} ->
  		    [header(ok), "Must supply number"];
  		{_, error, _} ->
  		    [header(ok), "Must supply priority"];
  		{_, _, error} ->
  		    [header(ok), "Must supply address"];
  		{{ok, Number}, {ok, Priority}, {ok, Address}} ->
  		    phone:insert_purge_phone(Number,
  					     [{priority,
  					       list_to_integer(Priority)}],
  					     permanent,
  					     never,
  					     sipurl:parse(Address)),
  		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_phones")]
  	    end
      end.
  
  del_route(Env, Input) ->
      case check_auth(Env, true) of
  	{error, Message} ->
  	    Message;
  	{ok} ->
  	    Args = sipheader:httparg(Input),
  	    Numberfind = dict:find("number", Args),
  	    case {Numberfind} of
  		{error} ->
  		    [header(ok), "Must supply number"];
  		{{ok, Number}} ->
  		    phone:purge_class_phone(Number, permanent),
  		    [header(redirect, "https://granit.e.kth.se:8080/erl/admin_www%3Alist_phones")]
  	    end
      end.
  
  
  change_user_form(Env, Input) ->
      case check_auth(Env, true) of
  