anchor.diff:  %%           needs the Call-Id and CSeq information).
   %%--------------------------------------------------------------------
   get_phone(SipUser) when is_list(SipUser) ->
  +    F = fun() ->
  +		mnesia:read({phone, SipUser})
  +	end,
  +    {atomic, L} = mnesia:transaction(F),
  +
       Now = util:timestamp(),
  -
  -    F = fun() ->
  -		mnesia:select(phone, [{#phone{number = SipUser, _ = '_'},
  -				       [{'>', {element, #phone.expire, '$_'}, Now}],
  -				       ['$_']
  -				      }])
  -	end,
  -    mnesia:transaction(F).
  +    Res = [E || E <- L, E#phone.expire > Now orelse E#phone.expire == never],
  +
  +    {atomic, Res}.
   
   %%--------------------------------------------------------------------
   %% Function: get_user(User)
  
positive.code:     %% sipurl:print/1 is used to create a consistent and therefore
      %% easily matchable string
      sipurl:print(sipurl:new([{proto, "sip"}, {user, User}, {host, Host}, {port, Port}])).
  
negative.code: 	 get_users_for_number/1,
  	 list_numbers/0,
  	 delete_phone/3,
  	 delete_phone_for_user/2,
  	 get_sipusers_using_location/1,
  
  	 test/0,
  	 test_create_table/0
  	]).
  
  %%--------------------------------------------------------------------
  