Changes for issue #51

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

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