anchor.diff:  %% Descrip.: Removes all entrys matching a number (SIP user),
   %%           and class from the location database.
   %% Returns : The result of the mnesia:transaction()
  +%% XXX only used in admin_www.erl
   %%--------------------------------------------------------------------
   purge_class_phone(Number, Class) ->
       Fun = fun() ->
  
positive.code: %% Function:
  %% Descrip.:
  %% Returns :
  %%--------------------------------------------------------------------
  set_user_flags(User, Flags) ->
      F = fun() ->
  		A = mnessia:read({user, User}),
  		Update = fun(Obj) ->
  				 mnesia:write(Obj#user{flags = Flags})
  			 end,
  
negative.code: 		  Address#sipurl.param},
      Fun = fun() ->
  		  A1 = mnesia:match_object(#phone{number = SipUser,
  						  class = Class,
  						  address = AddressStr,
  						  _ = '_'}),
  		  %% 2004-04-14, ft@ : This is COMPABILITY code to flush out records of old format
  		  %% from the location database. Will be removed.
  		  A2 = mnesia:match_object(#phone{number = SipUser,
  						  class = Class,
  						  address = CompatForm,
  						  _ = '_'}),
  		  A = A1 ++ A2,
  		  Delete = fun(O) ->
  				   mnesia:delete_object(O)
  