anchor.diff:  		    ]};
   	{value, {Key, Value}} ->
   	    case check_auth2(Value, Env, WantAdmin) of
  +		true ->
  +		    {ok};
  +		false ->
  +		    {error, [header(unauth, false),
  +			     "Not authorized\r\n"
  +			    ]}
  +	    end
  +    end.
  +
  +check_auth_user(Env, User) ->
  +    case lists:keysearch(http_authorization, 1, Env) of
  +	false ->
  +	    {error, [header(unauth, false),
  +		     "Not authorized\r\n"
  +		    ]};
  +	{value, {Key, Value}} ->
  +	    case check_auth_user2(Value, Env, User) of
   		true ->
   		    {ok};
   		false ->
  
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, 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").
  
negative.code:      end,
       "</td></tr>\n"].
  
  print_one_forward({Forwards, Timeout, Localring}) ->
      Printfunc = fun (Number) ->
  			[
  			 "<tr><td>",
  			 Number,
  			 "</td></tr>"
  			]
  		end,
      ["<td>",
       case Timeout of
  	 0 ->
  	     "Vidarekoppla alltid till ";
  	 _ ->
  	     ["Vidarekoppla efter ", integer_to_list(Timeout), " sekunder till "]
       end,
       "</td><td>",
       "<table>",
       lists:map(Printfunc, Forwards),
       "</table>",
       "</td><td>",
       case Localring of
  	 true ->
  	     "Ring ocks&aring; p&aring; den egna telefonen ";
  	 _ ->
  	     ""
       end,
       "</td>\n"
      ];
  print_one_forward(none) ->
      ["<td>",
       "Vidarekoppla aldrig"
       "</td>\n"
      ].
  
  print_phones([]) -> [];
  
  print_phones([{regexproute, Regexp, Flags, Class, Expire, Address} | List]) ->
  