Fixed ignoring sessions

This commit is contained in:
MikeMaximus
2018-01-01 10:57:23 -06:00
parent a89fdceb1a
commit 93361bcd87
+3 -4
View File
@@ -294,7 +294,7 @@ Public Class frmMain
OperationStarted(False) OperationStarted(False)
If oProcess.GameInfo.MonitorOnly = False Then If oProcess.GameInfo.MonitorOnly = False Then
If SupressBackup() Then If SupressSession() Then
bDoBackup = False bDoBackup = False
UpdateLog(mgrCommon.FormatString(frmMain_ErrorBackupSessionLength, oProcess.GameInfo.Name), False) UpdateLog(mgrCommon.FormatString(frmMain_ErrorBackupSessionLength, oProcess.GameInfo.Name), False)
SetLastAction(mgrCommon.FormatString(frmMain_ErrorBackupSessionLength, oProcess.GameInfo.CroppedName)) SetLastAction(mgrCommon.FormatString(frmMain_ErrorBackupSessionLength, oProcess.GameInfo.CroppedName))
@@ -716,9 +716,8 @@ Public Class frmMain
Private Sub HandleSession() Private Sub HandleSession()
Dim oSession As clsSession Dim oSession As clsSession
Dim iSession As Integer = Math.Ceiling(oProcess.TimeSpent.TotalMinutes)
If iSession > oSettings.SupressBackupThreshold Then If Not SupressSession() Then
'Record Session 'Record Session
oSession = New clsSession oSession = New clsSession
oSession.MonitorID = oProcess.GameInfo.ID oSession.MonitorID = oProcess.GameInfo.ID
@@ -729,7 +728,7 @@ Public Class frmMain
End If End If
End Sub End Sub
Private Function SupressBackup() As Boolean Private Function SupressSession() As Boolean
Dim iSession As Integer Dim iSession As Integer
If oSettings.SupressBackup Then If oSettings.SupressBackup Then
iSession = Math.Ceiling(oProcess.TimeSpent.TotalMinutes) iSession = Math.Ceiling(oProcess.TimeSpent.TotalMinutes)