anchor.diff:  	 prioritize_locations/1,
   	 get_locations_for_users/1,
   	 get_user_with_contact/1,
  +	 to_url/1,
   
   	 test/0
   	]).
  
positive.code: %% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  fetch_contacts(SipUser) ->
      case phone:get_sipuser_locations(SipUser) of
  	{atomic, Locations} ->
  	    locations_to_contacts(Locations);
  	_ ->
  	    none
  
negative.code: %%           to find out where a set of users are to see where
  %%           we should route a request.
  %% Returns : list() of siplocationdb_e record()
  %%--------------------------------------------------------------------
  get_locations_for_users(In) when is_list(In) ->
      get_locations_for_users2(In, []).
  
  get_locations_for_users2([], Res) ->
      Res;
  get_locations_for_users2([H | T], Res) when is_list(H) ->
      {ok, Locations} = phone:get_sipuser_locations(H),
      get_locations_for_users2(T, Res ++ Locations).
  
  %%--------------------------------------------------------------------
  