anchor.diff:  				    end, List)),
   	     "</table>\n",
   	     "<form action=\"admin_www%3Aadd_user\" method=post>\n",
  -	     "<input type=\"text\" name=\"user\" size=\"12\">\n",
  -	     "<input type=\"text\" name=\"phone\" size=\"4\">\n",
  -	     "<input type=\"submit\" value=\"Add\">\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",
  
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: print_flags([Key | Rest]) ->
      [print_flag(Key) | print_flags(Rest)].
  
  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>",
  