From 0ad4fd890d3d3ab13a3170cc6c37838410881758 Mon Sep 17 00:00:00 2001 From: "Michael J. Seiferling" Date: Fri, 3 Jun 2016 19:53:52 -0600 Subject: [PATCH] Changes for issue #51 --- GBM/Classes/clsGame.vb | 4 +++- GBM/Managers/mgrMonitorList.vb | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/GBM/Classes/clsGame.vb b/GBM/Classes/clsGame.vb index 8edd73e..66a4eb4 100644 --- a/GBM/Classes/clsGame.vb +++ b/GBM/Classes/clsGame.vb @@ -227,7 +227,6 @@ If ID <> oGame.ID Then Return False End If - If Name <> oGame.Name Then Return False End If @@ -255,6 +254,9 @@ If Hours <> oGame.Hours Then Return False End If + If MonitorOnly <> oGame.MonitorOnly Then + Return False + End If Return True End If End Function diff --git a/GBM/Managers/mgrMonitorList.vb b/GBM/Managers/mgrMonitorList.vb index 82956f2..bb1c598 100644 --- a/GBM/Managers/mgrMonitorList.vb +++ b/GBM/Managers/mgrMonitorList.vb @@ -71,7 +71,7 @@ Public Class mgrMonitorList sSQL &= "VALUES (@ID, @Name, @Process, @Path, @AbsolutePath, @FolderSave, @FileType, " sSQL &= "@TimeStamp, @ExcludeList, (SELECT ProcessPath FROM monitorlist WHERE MonitorID=@ID), " sSQL &= "(SELECT Icon FROM monitorlist WHERE MonitorID=@ID), @Hours, (SELECT Version FROM monitorlist WHERE MonitorID=@ID), " - sSQL &= "(SELECT Company FROM monitorlist WHERE MonitorID=@ID), COALESCE((SELECT Enabled FROM monitorlist WHERE MonitorID=@ID),1), COALESCE((SELECT MonitorOnly FROM monitorlist WHERE MonitorID=@ID),0));" + sSQL &= "(SELECT Company FROM monitorlist WHERE MonitorID=@ID), COALESCE((SELECT Enabled FROM monitorlist WHERE MonitorID=@ID),1), @MonitorOnly);" For Each oGame As clsGame In hshGames.Values hshParams = New Hashtable @@ -87,6 +87,7 @@ Public Class mgrMonitorList hshParams.Add("TimeStamp", oGame.AppendTimeStamp) hshParams.Add("ExcludeList", oGame.ExcludeList) hshParams.Add("Hours", oGame.Hours) + hshParams.Add("MonitorOnly", oGame.MonitorOnly) oParamList.Add(hshParams) Next @@ -156,7 +157,6 @@ Public Class mgrMonitorList If bToRemote Then DoListAddUpdateSync(hshSyncItems, mgrSQLite.Database.Remote) - Else DoListAddUpdateSync(hshSyncItems, mgrSQLite.Database.Local) End If