Removed import variables that are no longer needed
This commit is contained in:
@@ -6,7 +6,6 @@ Public Class frmAdvancedImport
|
|||||||
Private oImportData As ExportData
|
Private oImportData As ExportData
|
||||||
Private hshImportData As Hashtable
|
Private hshImportData As Hashtable
|
||||||
Private hshFinalData As New Hashtable
|
Private hshFinalData As New Hashtable
|
||||||
Private bModWinConfigsForLinux As Boolean
|
|
||||||
Private bSelectAll As Boolean = True
|
Private bSelectAll As Boolean = True
|
||||||
Private bIsLoading As Boolean = False
|
Private bIsLoading As Boolean = False
|
||||||
Private iCurrentSort As Integer = 0
|
Private iCurrentSort As Integer = 0
|
||||||
@@ -31,15 +30,6 @@ Public Class frmAdvancedImport
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Public Property ModWinConfigsForLinux As Boolean
|
|
||||||
Set(value As Boolean)
|
|
||||||
bModWinConfigsForLinux = value
|
|
||||||
End Set
|
|
||||||
Get
|
|
||||||
Return bModWinConfigsForLinux
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
|
|
||||||
Public ReadOnly Property FinalData As Hashtable
|
Public ReadOnly Property FinalData As Hashtable
|
||||||
Get
|
Get
|
||||||
Return hshFinalData
|
Return hshFinalData
|
||||||
@@ -147,7 +137,7 @@ Public Class frmAdvancedImport
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'Check for hardcoded ignore tags
|
'Check for hardcoded ignore tags
|
||||||
If bAddItem And ModWinConfigsForLinux Then
|
If bAddItem And (mgrCommon.IsUnix And oApp.OS = clsGame.eOS.Windows) Then
|
||||||
bAddItem = CheckIgnoreTags(oApp.ImportTags)
|
bAddItem = CheckIgnoreTags(oApp.ImportTags)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
@@ -1763,7 +1763,7 @@ Public Class frmGameManager
|
|||||||
sLocation = mgrCommon.OpenFileBrowser("XML_Import", frmGameManager_ChooseImportXML, "xml", frmGameManager_XML, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), False)
|
sLocation = mgrCommon.OpenFileBrowser("XML_Import", frmGameManager_ChooseImportXML, "xml", frmGameManager_XML, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), False)
|
||||||
|
|
||||||
If sLocation <> String.Empty Then
|
If sLocation <> String.Empty Then
|
||||||
If mgrMonitorList.DoImport(sLocation, False, Settings) Then
|
If mgrMonitorList.DoImport(sLocation, False) Then
|
||||||
mgrMonitorList.SyncMonitorLists(Settings)
|
mgrMonitorList.SyncMonitorLists(Settings)
|
||||||
LoadData()
|
LoadData()
|
||||||
LoadBackupData()
|
LoadBackupData()
|
||||||
@@ -1783,9 +1783,9 @@ Public Class frmGameManager
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ImportOfficialGameList(ByVal sImportUrl As String, ByVal bWinConfigsInLinux As Boolean)
|
Private Sub ImportOfficialGameList(ByVal sImportUrl As String)
|
||||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmOfficialImport, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
If mgrCommon.ShowMessage(frmGameManager_ConfirmOfficialImport, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||||
If mgrMonitorList.DoImport(sImportUrl, True, Settings,, bWinConfigsInLinux) Then
|
If mgrMonitorList.DoImport(sImportUrl, True) Then
|
||||||
mgrMonitorList.SyncMonitorLists(Settings)
|
mgrMonitorList.SyncMonitorLists(Settings)
|
||||||
LoadData()
|
LoadData()
|
||||||
LoadBackupData()
|
LoadBackupData()
|
||||||
@@ -2080,7 +2080,6 @@ Public Class frmGameManager
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub cmsOfficialWindows_Click(sender As Object, e As EventArgs) Handles cmsOfficialWindows.Click, cmsOfficial.Click
|
Private Sub cmsOfficialWindows_Click(sender As Object, e As EventArgs) Handles cmsOfficialWindows.Click, cmsOfficial.Click
|
||||||
Dim bWinConfigsinLinux As Boolean = False
|
|
||||||
'Show one time warning about Windows configs in Linux
|
'Show one time warning about Windows configs in Linux
|
||||||
If mgrCommon.IsUnix Then
|
If mgrCommon.IsUnix Then
|
||||||
If Not (oSettings.SuppressMessages And mgrSettings.eSuppressMessages.WinConfigsInLinux) = mgrSettings.eSuppressMessages.WinConfigsInLinux Then
|
If Not (oSettings.SuppressMessages And mgrSettings.eSuppressMessages.WinConfigsInLinux) = mgrSettings.eSuppressMessages.WinConfigsInLinux Then
|
||||||
@@ -2088,14 +2087,13 @@ Public Class frmGameManager
|
|||||||
oSettings.SuppressMessages = oSettings.SetMessageField(oSettings.SuppressMessages, mgrSettings.eSuppressMessages.WinConfigsInLinux)
|
oSettings.SuppressMessages = oSettings.SetMessageField(oSettings.SuppressMessages, mgrSettings.eSuppressMessages.WinConfigsInLinux)
|
||||||
oSettings.SaveSettings()
|
oSettings.SaveSettings()
|
||||||
End If
|
End If
|
||||||
bWinConfigsinLinux = True
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ImportOfficialGameList(App_URLImport, bWinConfigsinLinux)
|
ImportOfficialGameList(App_URLImport)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub cmsOfficialLinux_Click(sender As Object, e As EventArgs) Handles cmsOfficialLinux.Click
|
Private Sub cmsOfficialLinux_Click(sender As Object, e As EventArgs) Handles cmsOfficialLinux.Click
|
||||||
ImportOfficialGameList(App_URLImportLinux, False)
|
ImportOfficialGameList(App_URLImportLinux)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub cmsFile_Click(sender As Object, e As EventArgs) Handles cmsFile.Click
|
Private Sub cmsFile_Click(sender As Object, e As EventArgs) Handles cmsFile.Click
|
||||||
|
|||||||
@@ -106,7 +106,7 @@ Public Class frmStartUpWizard
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If mgrCommon.ShowMessage(frmStartUpWizard_ConfirmOfficialImport, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
If mgrCommon.ShowMessage(frmStartUpWizard_ConfirmOfficialImport, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||||
If mgrMonitorList.DoImport(sImportURL, True, Settings, True) Then
|
If mgrMonitorList.DoImport(sImportURL, True) Then
|
||||||
oGameData = mgrMonitorList.ReadList(mgrMonitorList.eListTypes.FullList)
|
oGameData = mgrMonitorList.ReadList(mgrMonitorList.eListTypes.FullList)
|
||||||
mgrMonitorList.SyncMonitorLists(oSettings)
|
mgrMonitorList.SyncMonitorLists(oSettings)
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -824,10 +824,10 @@ Public Class mgrMonitorList
|
|||||||
Return True
|
Return True
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Shared Function DoImport(ByVal sPath As String, ByVal bOfficial As Boolean, ByRef oSettings As mgrSettings, Optional ByVal bStartUpWizard As Boolean = False, Optional ByVal bWinConfigsInLinux As Boolean = False) As Boolean
|
Public Shared Function DoImport(ByVal sPath As String, ByVal bOfficial As Boolean) As Boolean
|
||||||
If mgrCommon.IsAddress(sPath) Then
|
If mgrCommon.IsAddress(sPath) Then
|
||||||
If mgrCommon.CheckAddress(sPath) Then
|
If mgrCommon.CheckAddress(sPath) Then
|
||||||
ImportMonitorList(sPath, True, bWinConfigsInLinux)
|
ImportMonitorList(sPath, True)
|
||||||
Return True
|
Return True
|
||||||
Else
|
Else
|
||||||
mgrCommon.ShowMessage(mgrMonitorList_WebNoReponse, sPath, MsgBoxStyle.Exclamation)
|
mgrCommon.ShowMessage(mgrMonitorList_WebNoReponse, sPath, MsgBoxStyle.Exclamation)
|
||||||
@@ -835,7 +835,7 @@ Public Class mgrMonitorList
|
|||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If File.Exists(sPath) Then
|
If File.Exists(sPath) Then
|
||||||
ImportMonitorList(sPath,, bWinConfigsInLinux)
|
ImportMonitorList(sPath)
|
||||||
Return True
|
Return True
|
||||||
Else
|
Else
|
||||||
mgrCommon.ShowMessage(mgrMonitorList_FileNotFound, sPath, MsgBoxStyle.Exclamation)
|
mgrCommon.ShowMessage(mgrMonitorList_FileNotFound, sPath, MsgBoxStyle.Exclamation)
|
||||||
@@ -845,7 +845,7 @@ Public Class mgrMonitorList
|
|||||||
Return True
|
Return True
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Shared Sub ImportMonitorList(ByVal sLocation As String, Optional ByVal bWebRead As Boolean = False, Optional ByVal bWinConfigsInLinux As Boolean = False)
|
Private Shared Sub ImportMonitorList(ByVal sLocation As String, Optional ByVal bWebRead As Boolean = False)
|
||||||
Dim hshCompareFrom As New Hashtable
|
Dim hshCompareFrom As New Hashtable
|
||||||
Dim hshCompareTo As Hashtable
|
Dim hshCompareTo As Hashtable
|
||||||
Dim hshSyncItems As Hashtable
|
Dim hshSyncItems As Hashtable
|
||||||
@@ -855,7 +855,7 @@ Public Class mgrMonitorList
|
|||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
|
|
||||||
If Not mgrXML.ReadMonitorList(sLocation, oExportInfo, hshCompareFrom, bWebRead, bWinConfigsInLinux) Then
|
If Not mgrXML.ReadMonitorList(sLocation, oExportInfo, hshCompareFrom, bWebRead) Then
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -892,7 +892,6 @@ Public Class mgrMonitorList
|
|||||||
Dim frm As New frmAdvancedImport
|
Dim frm As New frmAdvancedImport
|
||||||
frm.ImportInfo = oExportInfo
|
frm.ImportInfo = oExportInfo
|
||||||
frm.ImportData = hshSyncItems
|
frm.ImportData = hshSyncItems
|
||||||
frm.ModWinConfigsForLinux = bWinConfigsInLinux
|
|
||||||
If frm.ShowDialog() = DialogResult.OK Then
|
If frm.ShowDialog() = DialogResult.OK Then
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
|
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ Imports System.Net
|
|||||||
|
|
||||||
Public Class mgrXML
|
Public Class mgrXML
|
||||||
|
|
||||||
Public Shared Function ReadMonitorList(ByVal sLocation As String, ByRef oExportInfo As ExportData, ByRef hshList As Hashtable, Optional ByVal bWebRead As Boolean = False, Optional ByVal bWinConfigsInLinux As Boolean = False) As Boolean
|
Public Shared Function ReadMonitorList(ByVal sLocation As String, ByRef oExportInfo As ExportData, ByRef hshList As Hashtable, Optional ByVal bWebRead As Boolean = False) As Boolean
|
||||||
Dim oList As List(Of Game)
|
Dim oList As List(Of Game)
|
||||||
Dim hshDupeList As New Hashtable
|
Dim hshDupeList As New Hashtable
|
||||||
Dim oExportData As New ExportData
|
Dim oExportData As New ExportData
|
||||||
@@ -45,12 +45,9 @@ Public Class mgrXML
|
|||||||
oGame.OS = g.OS
|
oGame.OS = g.OS
|
||||||
'Retain compatability when the OS value is not set
|
'Retain compatability when the OS value is not set
|
||||||
If oGame.OS = 0 Then
|
If oGame.OS = 0 Then
|
||||||
If bWinConfigsInLinux Then
|
|
||||||
oGame.OS = clsGame.eOS.Windows
|
|
||||||
Else
|
|
||||||
oGame.OS = mgrCommon.GetCurrentOS
|
oGame.OS = mgrCommon.GetCurrentOS
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
For Each t As Tag In g.Tags
|
For Each t As Tag In g.Tags
|
||||||
oGame.ImportTags.Add(t)
|
oGame.ImportTags.Add(t)
|
||||||
Next
|
Next
|
||||||
|
|||||||
Reference in New Issue
Block a user