From a27802fea764128c13ba2ae489efd6ae1405706b Mon Sep 17 00:00:00 2001 From: "Michael J. Seiferling" Date: Fri, 4 Dec 2015 10:40:28 -0600 Subject: [PATCH] Removed DOSBox update from DB upgrade --- GBM/Managers/mgrSQLite.vb | 36 ------------------------------------ 1 file changed, 36 deletions(-) diff --git a/GBM/Managers/mgrSQLite.vb b/GBM/Managers/mgrSQLite.vb index 481f19c..248b2f7 100644 --- a/GBM/Managers/mgrSQLite.vb +++ b/GBM/Managers/mgrSQLite.vb @@ -326,38 +326,6 @@ Public Class mgrSQLite End Sub - Public Sub UpgradeDOSBox() - Dim sSQL As String - Dim sCurrentID As String - Dim sCurrentName As String - Dim sCurrentProcess As String - Dim sDosProcess As String - Dim sNewName As String - Dim oData As DataSet - Dim hshParams As Hashtable - Dim oParamList As New List(Of Hashtable) - - sSQL = "SELECT MonitorID, Name, Process FROM monitorlist WHERE Process LIKE '%dosbox:%'" - oData = ReadParamData(sSQL, New Hashtable) - - sSQL = "UPDATE monitorlist SET Name=@NewName, Process=@NewProcess WHERE MonitorID=@ID;" - - For Each dr As DataRow In oData.Tables(0).Rows - hshParams = New Hashtable - sCurrentID = CStr(dr("MonitorID")) - sCurrentName = CStr(dr("Name")) - sCurrentProcess = CStr(dr("Process")) - sDosProcess = sCurrentProcess.Split(":")(1) - sNewName = sCurrentName & " (" & sDosProcess & ")" - hshParams.Add("NewName", sNewName) - hshParams.Add("NewProcess", "DOSBox") - hshParams.Add("ID", sCurrentID) - oParamList.Add(hshParams) - Next - - RunMassParamQuery(sSQL, oParamList) - End Sub - Public Sub DatabaseUpgrade() Dim sSQL As String @@ -518,8 +486,6 @@ Public Class mgrSQLite 'Backup DB before starting BackupDB("v94") - UpgradeDOSBox() - sSQL = "PRAGMA user_version=95" RunParamQuery(sSQL, New Hashtable) @@ -528,8 +494,6 @@ Public Class mgrSQLite 'Backup DB before starting BackupDB("v94") - UpgradeDOSBox() - sSQL = "PRAGMA user_version=95" RunParamQuery(sSQL, New Hashtable)