Changeset 1276

Timestamp:

1/28/2010 2:14:14 PM (7 weeks ago)

Author:

vessper

Message:

28/01/2010 (1.14.0.1275)

---

- Core: EveMails? "To" field should now show all recipients
- Core: MailingList? recipients shown as "<Mailing List>"

Location:

trunk

Files:

• EveHQ.Core/DataFunctions.vb (modified) (1 diff)
• EveHQ/Forms/frmMail.vb (modified) (1 diff)

trunk/EveHQ.Core/DataFunctions.vb

@@ -1623 +1623 @@
         Dim strIDs() As String = strID.Split(",".ToCharArray)
         For Each ID As String In strIDs
-            If IDs.Contains(ID) = False Then
-                IDs.Add(ID)
+            If ID.Trim <> "" Then
+                If IDs.Contains(ID) = False Then
+                    IDs.Add(ID)
+                End If
             End If
         Next

trunk/EveHQ/Forms/frmMail.vb

@@ -185 +185 @@
             End If
             clvMail.Items.Add(mailItem)
-            Dim strTo As String = newMail.ToCharacterIDs & ", " & newMail.ToCorpAllianceIDs & ", " & newMail.ToListIDs
-            If newMail.ToCorpAllianceIDs <> "" Then
-                mailItem.SubItems(1).Text = displayPilot.Corp
-            Else
-                mailItem.SubItems(1).Text = displayPilot.Name
-            End If
+            Dim strTo As String = ""
+            If newMail.ToListIDs = "" Then
+                strTo = newMail.ToCharacterIDs & ", " & newMail.ToCorpAllianceIDs
+                Dim IDs As New ArrayList
+                EveHQ.Core.DataFunctions.ParseIDs(IDs, strTo)
+                strTo = ""
+                For Each ID As String In IDs
+                    strTo &= "; " & FinalIDs(CLng(ID))
+                Next
+                strTo = strTo.Remove(0, 2)
+            Else
+                strTo = "<Mailing List>"
+            End If
+            mailItem.SubItems(1).Text = strTo
             mailItem.SubItems(2).Text = newMail.MessageTitle
             mailItem.SubItems(3).Text = FormatDateTime(newMail.MessageDate)