Changeset 1240

Timestamp:

1/17/2010 3:03:27 PM (8 weeks ago)

Author:

vessper

Message:

17/01/2010 (1.14.0.1240)

---

- Core: Added patch for Standings to only use the latest files

Files:

• trunk/EveHQ/Forms/frmPilot.vb (modified) (3 diffs)

trunk/EveHQ/Forms/frmPilot.vb

@@ -1026 +1026 @@
 
 #Region "Standings Routines"
-   
+
     Private Sub btnGetStandings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetStandings.Click
         ' First, let's check out the cache location based on the value of the settings
@@ -1114 +1114 @@
 
         If cacheFileList.Count > 0 Then
+            Dim lastWrites As Dictionary(Of String, Date) = New Dictionary(Of String, Date)
+
             Cursor = Cursors.WaitCursor
             Dim StandingsDecoder As New EveHQ.Core.StandingsCacheDecoder
@@ -1120 +1122 @@
                 MyStandings = StandingsDecoder.FetchStandings(cachefile)
                 If MyStandings.OwnerID IsNot Nothing Then
+                    Dim last As Date = File.GetLastWriteTime(cachefile)
                     If EveHQ.Core.HQ.AllStandings.ContainsKey(MyStandings.OwnerID) = False Then
                         EveHQ.Core.HQ.AllStandings.Add(MyStandings.OwnerID, MyStandings)
+                        lastWrites.Add(MyStandings.OwnerID, last)
+                    Else
+                        If last > lastWrites(MyStandings.OwnerID) Then
+                            EveHQ.Core.HQ.AllStandings.Remove(MyStandings.OwnerID)
+                            EveHQ.Core.HQ.AllStandings.Add(MyStandings.OwnerID, MyStandings)
+                            lastWrites(MyStandings.OwnerID) = last
+                        End If
                     End If
                 End If