Turn on date ISO conversion before reading index

These dates need to be converted to local dates for internal processing. joyfullservice#459
josef-poetzl · Nov 17, 2023 · 5009bdc · 5009bdc
1 parent b1bf7bd
commit 5009bdc
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/Version Control.accda.src/modules/clsVCSIndex.cls b/Version Control.accda.src/modules/clsVCSIndex.cls
@@ -59,6 +59,7 @@ Public Sub LoadFromFile(Optional strFile As String)
     Dim dFile As Dictionary
     Dim dItem As Dictionary
     Dim varKey As Variant
+    Dim blnSavedValue As Boolean
 
     ' Exit if we have disabled the index functionality
     If Me.Disabled Then Exit Sub
@@ -70,7 +71,11 @@ Public Sub LoadFromFile(Optional strFile As String)
     m_strFile = strFile
     If m_strFile = vbNullString Then m_strFile = DefaultFilePath
     If FSO.FileExists(m_strFile) Then
+        ' Convert dates back to local time for processing
+        blnSavedValue = JsonOptions.ConvertDateToIso
+        JsonOptions.ConvertDateToIso = True
         Set dFile = ReadJsonFile(m_strFile)
+        JsonOptions.ConvertDateToIso = blnSavedValue
         If Not dFile Is Nothing Then
             If dFile.Exists("Items") Then
                 ' Load properties from class