v0.94 bug fixes and feature additions

GBM/Managers/mgrSQLite.vb

@@ -71,7 +71,7 @@ Public Class mgrSQLite
             'Add Tables (Settings)
             sSql = "CREATE TABLE settings (SettingsID INTEGER NOT NULL PRIMARY KEY, MonitorOnStartup BOOLEAN NOT NULL, StartToTray BOOLEAN NOT NULL, ShowDetectionToolTips BOOLEAN NOT NULL, " & _
                    "DisableConfirmation BOOLEAN NOT NULL, CreateSubFolder BOOLEAN NOT NULL, ShowOverwriteWarning BOOLEAN NOT NULL, RestoreOnLaunch BOOLEAN NOT NULL, " & _
-                   "BackupFolder TEXT NOT NULL, Sync BOOLEAN NOT NULL, CheckSum BOOLEAN NOT NULL, StartWithWindows BOOLEAN NOT NULL);"
+                   "BackupFolder TEXT NOT NULL, Sync BOOLEAN NOT NULL, CheckSum BOOLEAN NOT NULL, StartWithWindows BOOLEAN NOT NULL, TimeTracking BOOLEAN NOT NULL);"
 
             'Add Tables (Monitor List)
             sSql &= "CREATE TABLE monitorlist (MonitorID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL, Process TEXT NOT NULL, Path TEXT, " & _
@@ -411,6 +411,28 @@ Public Class mgrSQLite
             End If
         End If
 
+        '0.94 Upgrade
+        If GetDatabaseVersion() < 94 Then
+            If eDatabase = Database.Local Then
+                'Backup DB before starting
+                BackupDB("v93")
+
+                'Add new setting
+                sSQL = "ALTER TABLE settings ADD COLUMN TimeTracking BOOLEAN NOT NULL DEFAULT 1;"
+                sSQL &= "PRAGMA user_version=94"
+
+                RunParamQuery(sSQL, New Hashtable)
+            End If
+            If eDatabase = Database.Remote Then
+                'Backup DB before starting
+                BackupDB("v93")
+
+                sSQL = "PRAGMA user_version=94"
+
+                RunParamQuery(sSQL, New Hashtable)
+            End If
+        End If
+
     End Sub
 
     Public Function GetDBSize() As Long

GBM/Managers/mgrSettings.vb

@@ -11,6 +11,7 @@ Public Class mgrSettings
     Private bRestoreOnLaunch As Boolean = False
     Private bSync As Boolean = True
     Private bCheckSum As Boolean = True
+    Private bTimeTracking As Boolean = True
     Private sBackupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).TrimEnd(New Char() {"\", "/"})
 
     Property StartWithWindows As Boolean
@@ -103,6 +104,15 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property TimeTracking As Boolean
+        Get
+            Return bTimeTracking
+        End Get
+        Set(value As Boolean)
+            bTimeTracking = value
+        End Set
+    End Property
+
     Property BackupFolder As String
         Get
             Return sBackupFolder
@@ -121,7 +131,7 @@ Public Class mgrSettings
         oDatabase.RunParamQuery(sSQL, New Hashtable)
 
         sSQL = "INSERT INTO settings VALUES (1, @MonitorOnStartup, @StartToTray, @ShowDetectionToolTips, @DisableConfirmation, "
-        sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @Sync, @CheckSum, @StartWithWindows)"
+        sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @Sync, @CheckSum, @StartWithWindows, @TimeTracking)"
 
         hshParams.Add("MonitorOnStartup", MonitorOnStartup)
         hshParams.Add("StartToTray", StartToTray)
@@ -134,6 +144,7 @@ Public Class mgrSettings
         hshParams.Add("Sync", Sync)
         hshParams.Add("CheckSum", CheckSum)
         hshParams.Add("StartWithWindows", StartWithWindows)
+        hshParams.Add("TimeTracking", TimeTracking)
 
         oDatabase.RunParamQuery(sSQL, hshParams)
     End Sub
@@ -160,6 +171,7 @@ Public Class mgrSettings
             Sync = CBool(dr(9))
             CheckSum = CBool(dr(10))
             StartWithWindows = CBool(dr(11))
+            TimeTracking = CBool(dr(12))
         Next
 
         oDatabase.Disconnect()

GBM/Managers/mgrXML.vb

@@ -29,8 +29,7 @@ Public Class mgrXML
                     oGame.AbsolutePath = xFileReader.ReadElementString("absolutepath")
                     oGame.Path = xFileReader.ReadElementString("savelocation")
                     oGame.FolderSave = xFileReader.ReadElementString("foldersave")
-                    oGame.FileType = xFileReader.ReadElementString("filetype")
-                    oGame.AppendTimeStamp = xFileReader.ReadElementString("appendtimestamp")
+                    oGame.FileType = xFileReader.ReadElementString("filetype")                    
                     oGame.ExcludeList = xFileReader.ReadElementString("excludelist")
 
                     If hshList.Contains(oGame.ProcessName) Or hshDupeList.Contains(oGame.ProcessName) Then
@@ -80,8 +79,7 @@ Public Class mgrXML
                 xFileWriter.WriteElementString("absolutepath", o.AbsolutePath)
                 xFileWriter.WriteElementString("savelocation", o.TruePath)
                 xFileWriter.WriteElementString("foldersave", o.FolderSave)
-                xFileWriter.WriteElementString("filetype", o.FileType)
-                xFileWriter.WriteElementString("appendtimestamp", o.AppendTimeStamp)
+                xFileWriter.WriteElementString("filetype", o.FileType)                
                 xFileWriter.WriteElementString("excludelist", o.ExcludeList)
                 xFileWriter.WriteEndElement()
             Next