anchor.diff:  print_flags([Key | Rest]) ->
       [print_flag(Key) | print_flags(Rest)].
   
  -print_phones([]) -> [];
  -
  -print_phones([{regexproute, Regexp, Flags, Class, Expire, Address} | List]) ->
  -    [case Address of
  -	 {_, _, _, _, _} when list(Regexp) ->
  -	     ["<tr><td>",
  -	      Regexp,
  -	      "</td><td>",
  -	      print_flags(Flags),
  -	      "</td><td>",
  -	      atom_to_list(Class),
  -	      "</td><td>",
  -	      util:sec_to_date(Expire),
  -	      "</td><td>",
  -	      sipurl:print(Address),
  -	      "</td><td>",
  -	      case Class of
  -		  permanent ->
  -		      [
  -		       "<form action=\"admin_www%3Adel_regexp\" method=post>\n",
  -		       "<input type=\"hidden\" name=\"number\" value=\"",
  -		       Regexp, "\">\n",
  -		       "<input type=\"submit\" value=\"Ta bort\">\n",
  -		       "</form>\n"
  -		      ];
  -		  _ ->
  -		      ""
  -	      end,
  -	      "</td></tr>\n"
  -	     ]
  -     end | print_phones(List)];
  -
  -print_phones([{phone, Number, Flags, Class, Expire, Address} | List]) ->
  +print_one_regexp(Regexp, Flags, Class, Expire, Address) ->
  +    case Address of
  +	{_, _, _, _, _} when list(Regexp) ->
  +	    ["<tr><td>",
  +	     Regexp,
  +	     "</td><td>",
  +	     print_flags(Flags),
  +	     "</td><td>",
  +	     atom_to_list(Class),
  +	     "</td><td>",
  +	     util:sec_to_date(Expire),
  +	     "</td><td>",
  +	     sipurl:print(Address),
  +	     "</td><td>",
  +	     case Class of
  +		 permanent ->
  +		     [
  +		      "<form action=\"admin_www%3Adel_regexp\" method=post>\n",
  +		      "<input type=\"hidden\" name=\"number\" value=\"",
  +		      Regexp, "\">\n",
  +		      "<input type=\"submit\" value=\"Ta bort\">\n",
  +		      "</form>\n"
  +		     ];
  +		 _ ->
  +		     ""
  +	     end,
  +	     "</td></tr>\n"
  +	    ]
  +    end.
  +
  +print_one_phone(Number, Flags, Class, Expire, Address) ->
       ["<tr><td>",
        Number,
        "</td><td>",
  
positive.code:      "</td><td>",
       "<form action=\"admin_www%3Achange_user_form\" method=post>\n",
       "<input type=\"hidden\" name=\"user\" value=\"", Elem#user.user,"\" size=\"12\">\n",
       "<input type=\"submit\" value=\"Change\">\n",
       "</form>\n",
       "</td></tr>\n"
       | print_users(List)].
  
negative.code: 				    end, List)),
  	     "</table>\n",
  	     "<form action=\"admin_www%3Aadd_user\" method=post>\n",
  	     "Anv&auml;ndarnamn: <input type=\"text\" name=\"user\" size=\"12\">\n",
  	     "Nummer: <input type=\"text\" name=\"phone\" size=\"4\">\n",
  	     "<input type=\"submit\" value=\"L&auml;gg till\">\n",
  	     "</form>\n",
  	     "<ul>\n",
  	     "<li>internal: samtal inom KTH\n",
  