anchor.diff:  	    "&nbsp;";
   	String when list(String) ->
   	    String;
  -	E ->
  +	_ ->
   	    "error"
       end.
   
  
positive.code: print_flags([Key | Rest]) ->
      [print_flag(Key) | print_flags(Rest)].
  
  print_one_regexp(Regexp, Flags, Class, Expire, Address) when list(Regexp), record(Address, sipurl) ->
      ["<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"
  	     ];
  
negative.code: 	{error, Message} ->
  	    Message;
  	{ok} ->
  	    Numberlist = get_numbers(User),
  	    
  	    true = lists:member(Number, Numberlist),
  