Added basics for issue #99

GBM/Forms/frmMain.vb

@@ -714,6 +714,17 @@ Public Class frmMain
         UpdateTimeSpent(dCurrentHours, oProcess.TimeSpent.TotalHours)
     End Sub
 
+    Private Sub HandleSession()
+        Dim oSession As New clsSession
+
+        'Record Session
+        oSession.MonitorID = oProcess.GameInfo.ID
+        oSession.SessionStart = oProcess.StartTime
+        oSession.SessionEnd = oProcess.EndTime
+
+        mgrSessions.AddSession(oSession)
+    End Sub
+
     Private Function SupressBackup() As Boolean
         Dim iSession As Integer
         If oSettings.SupressBackup Then
@@ -1765,6 +1776,7 @@ Public Class frmMain
                     bContinue = False
                     If oSettings.TimeTracking Then
                         HandleTimeSpent()
+                        HandleSession()
                     End If
                     UpdateLog(mgrCommon.FormatString(frmMain_ErrorBackupUnknownPath, oProcess.GameInfo.Name), False)
                     oProcess.GameInfo = Nothing
@@ -1778,6 +1790,7 @@ Public Class frmMain
                     UpdateLog(mgrCommon.FormatString(frmMain_GameEnded, oProcess.GameInfo.Name), False)
                     If oSettings.TimeTracking Then
                         HandleTimeSpent()
+                        HandleSession()
                     End If
                     RunBackup()
                 Else