'add to ContactUtils
Public Sub GetAllPhones As Map
Dim crsr As ResultSet = cr.Query(dataUri, Array As String("data1", "data2", "contact_id"), "mimetype = ?", _
Array As String("vnd.android.cursor.item/phone_v2"), "")
Dim res As Map
res.Initialize
Do While crsr.NextRow
Dim id As Long = crsr.GetLong("contact_id")
Dim phones As List
If res.ContainsKey(id) = False Then
phones.Initialize
res.Put(id, phones)
Else
phones = res.Get(id)
End If
Dim p As cuPhone
p.Initialize
p.Number = crsr.GetString2(0)
p.PhoneType = phoneTypes.Get(crsr.GetString2(1))
phones.Add(p)
Loop
crsr.Close
Return res
End Sub