Changes for issue #115

2017-12-27 17:03:00 -06:00
parent b1e6e7a9e6
commit a5d7d6697a
4 changed files with 200 additions and 147 deletions
@@ -715,14 +715,18 @@ Public Class frmMain
    End Sub

    Private Sub HandleSession()
-        Dim oSession As New clsSession
+        Dim oSession As clsSession
+        Dim iSession As Integer = Math.Ceiling(oProcess.TimeSpent.TotalMinutes)

-        'Record Session
-        oSession.MonitorID = oProcess.GameInfo.ID
-        oSession.SessionStart = oProcess.StartTime
-        oSession.SessionEnd = oProcess.EndTime
+        If iSession > oSettings.SupressBackupThreshold Then
+            'Record Session
+            oSession = New clsSession
+            oSession.MonitorID = oProcess.GameInfo.ID
+            oSession.SessionStart = oProcess.StartTime
+            oSession.SessionEnd = oProcess.EndTime

-        mgrSessions.AddSession(oSession)
+            mgrSessions.AddSession(oSession)
+        End If
    End Sub

    Private Function SupressBackup() As Boolean