Revert all changes for issue #99

GBM/Forms/frmMain.vb

@@ -714,17 +714,6 @@ 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
@@ -1777,7 +1766,6 @@ 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
@@ -1791,7 +1779,6 @@ Public Class frmMain
                     UpdateLog(mgrCommon.FormatString(frmMain_GameEnded, oProcess.GameInfo.Name), False)
                     If oSettings.TimeTracking Then
                         HandleTimeSpent()
-                        HandleSession()
                     End If
                     RunBackup()
                 Else