Changes for issues #97 and #99

GBM/Classes/XML Serialize Classes/Game.vb

@@ -8,6 +8,7 @@
     Private sFileType As String
     Private sExcludeList As String
     Private bMonitorOnly As Boolean
+    Private sComments As String
     Private oTags As List(Of Tag)
 
     Property Name As String
@@ -91,6 +92,15 @@
         End Get
     End Property
 
+    Property Comments As String
+        Set(value As String)
+            sComments = value
+        End Set
+        Get
+            Return sComments
+        End Get
+    End Property
+
     Property Tags As List(Of Tag)
         Get
             Return oTags

GBM/Classes/clsGame.vb

@@ -19,6 +19,7 @@ Public Class clsGame
     Private sCompany As String = String.Empty
     Private bEnabled As Boolean = True
     Private bMonitorOnly As Boolean = False
+    Private sComments As String = String.Empty
     Private bDuplicate As Boolean = False
     Private bTempGame As Boolean = False
     Private oImportTags As New List(Of Tag)
@@ -220,6 +221,15 @@ Public Class clsGame
         End Set
     End Property
 
+    Property Comments As String
+        Get
+            Return sComments
+        End Get
+        Set(value As String)
+            sComments = value
+        End Set
+    End Property
+
     Property Duplicate As Boolean
         Get
             Return bDuplicate
@@ -324,6 +334,9 @@ Public Class clsGame
             If MonitorOnly <> oGame.MonitorOnly Then
                 Return False
             End If
+            If Comments <> oGame.Comments Then
+                Return False
+            End If
 
             'Optional Sync Fields
             If (eSyncFields And eOptionalSyncFields.Company) = eOptionalSyncFields.Company Then

GBM/Classes/clsSession.vb

@@ -0,0 +1,44 @@
+Public Class clsSession
+
+    Private sMonitorID As String
+    Private dStart As DateTime
+    Private dEnd As DateTime
+    Private sComputerName As String = My.Computer.Name
+
+    Public Property MonitorID As String
+        Set(value As String)
+            sMonitorID = value
+        End Set
+        Get
+            Return sMonitorID
+        End Get
+    End Property
+
+    Public Property SessionStart As DateTime
+        Set(value As DateTime)
+            dStart = value
+        End Set
+        Get
+            Return dStart
+        End Get
+    End Property
+
+    Public Property SessionEnd As DateTime
+        Set(value As DateTime)
+            dEnd = value
+        End Set
+        Get
+            Return dEnd
+        End Get
+    End Property
+
+    Public Property ComputerName As String
+        Set(value As String)
+            sComputerName = value
+        End Set
+        Get
+            Return sComputerName
+        End Get
+    End Property
+
+End Class