From 9a8350c2ed6ae5483c9a52d27388b711dfe255ca Mon Sep 17 00:00:00 2001
From: MikeMaximus <mseiferling@gmail.com>
Date: Wed, 6 Dec 2017 22:58:52 -0600
Subject: [PATCH] Removed useless class file

---
 GBM/Managers/mgrSession.vb | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 GBM/Managers/mgrSession.vb

diff --git a/GBM/Managers/mgrSession.vb b/GBM/Managers/mgrSession.vb
deleted file mode 100644
index 36cd9cb..0000000
--- a/GBM/Managers/mgrSession.vb
+++ /dev/null
@@ -1,35 +0,0 @@
-Public Class mgrSession
-
-    Private Shared Function MapToObject(ByVal dr As DataRow) As clsSession
-        Dim oSession As New clsSession
-
-        oSession.MonitorID = CStr(dr("MonitorID"))
-        oSession.SessionStart = CStr(dr("Start"))
-        oSession.SessionEnd = CStr(dr("End"))
-
-        Return oSession
-    End Function
-
-    Private Shared Function SetCoreParameters(ByVal oSession As clsSession) As Hashtable
-        Dim hshParams As New Hashtable
-
-        hshParams.Add("MonitorID", oSession.MonitorID)
-        hshParams.Add("Start", oSession.SessionStart)
-        hshParams.Add("End", oSession.SessionEnd)
-
-        Return hshParams
-    End Function
-
-    Public Shared Sub DoSessionAdd(ByVal oSession As clsSession, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
-        Dim oDatabase As New mgrSQLite(iSelectDB)
-        Dim sSQL As String
-        Dim hshParams As Hashtable
-
-        sSQL = "INSERT INTO sessions VALUES (@MonitorID, @Start, @End)"
-
-        hshParams = SetCoreParameters(oSession)
-
-        oDatabase.RunParamQuery(sSQL, hshParams)
-    End Sub
-
-End Class