anchor.diff:  
       case mnesia:transaction(F) of
   	{atomic, L} ->
  -	    %% Convert the location strings stored in the database to sipurl record format.
  -	    %% We can't store the locations as sipurl records in the database in case we
  -	    %% want have to change something in the sipurl record.
   	    {ok, L};
   	Unknown ->
   	    logger:log(error, "Location: expired_phones got unknown result from Mnesia : ~p", [Unknown]),
  
positive.code: 					 }}]
  				      }])
  	end,
      case mnesia:transaction(F) of
  	{atomic, L} ->
  	    %% Convert the location strings stored in the database to sipurl record format.
  	    %% We can't store the locations as sipurl records in the database in case we
  	    %% have to change something in the sipurl record.
  	    Rewrite = fun(Entry) ->
  			      {LocationStr, Flags, Class, Expire} = Entry,
                                case LocationStr of
                                    {User, Pass, Host, Port, Parameters} ->
  				      %% 2004-04-14, ft@ : This is COMPABILITY code to handle old entrys just enough to
  				      %% delete them when they expire. Will be removed.
  				      U = sipurl:new([{proto, "sip"}, {user, User}, {pass, Pass},
  						      {host, Host}, {port, Port}, {param, Parameters}]),
                                        {U, Flags, Class, Expire};
  				  _ when is_list(LocationStr) ->
  				      {sipurl:parse(LocationStr), Flags, Class, Expire}
  			      end
  		      end,
  	    {atomic, lists:map(Rewrite, L)};
  	Unknown ->
  	    logger:log(error, "Location: get_phone got unknown result from Mnesia : ~p", [Unknown]),
  	    Unknown
      end.
  
  %%--------------------------------------------------------------------
  %% Function:
  
negative.code: 		      end,
  		if
  		    is_record(URL, sipurl) ->
  			logger:log(normal, "Location: User ~p ~p location ~p has expired",
  				   [User, Class, sipurl:print(URL)]);
  		    true ->
  			logger:log(normal, "Location: User ~p ~p (unrecognized) location ~p has expired",
  				   [User, Class, Location])
  		end,
  		delete_phone(User, Location, Class)
  	end,
  