Fixed bug found while testing issue #81

This commit is contained in:
Michael J. Seiferling
2017-06-14 09:06:53 -06:00
parent 9cd786c303
commit 1f291bbcd8
+6 -2
View File
@@ -156,13 +156,16 @@ Public Class frmGameTags
If bNewMode Then If bNewMode Then
For Each kp As KeyValuePair(Of String, String) In oTagList For Each kp As KeyValuePair(Of String, String) In oTagList
'We need to be sure the tags still exist if the "Setup Tags" form was used
If hshTags.ContainsKey(kp.Value) Then If hshTags.ContainsKey(kp.Value) Then
hshTags.Remove(kp.Value) lstGameTags.Items.Add(kp)
End If End If
Next Next
For Each kp As KeyValuePair(Of String, String) In oTagList For Each kp As KeyValuePair(Of String, String) In oTagList
lstGameTags.Items.Add(kp) If hshTags.ContainsKey(kp.Value) Then
hshTags.Remove(kp.Value)
End If
Next Next
Else Else
hshGameTags = mgrGameTags.GetTagsByGameMulti(IDList) hshGameTags = mgrGameTags.GetTagsByGameMulti(IDList)
@@ -240,6 +243,7 @@ Public Class frmGameTags
End Sub End Sub
Private Sub btnOpenTags_Click(sender As Object, e As EventArgs) Handles btnOpenTags.Click Private Sub btnOpenTags_Click(sender As Object, e As EventArgs) Handles btnOpenTags.Click
If bNewMode Then BuildTagList()
OpenTags() OpenTags()
End Sub End Sub
End Class End Class