fix labels showing default values, clear up _view_only variable use

This commit is contained in:
Jonathan Jenne
2020-03-17 14:00:05 +01:00
parent e013fd4a25
commit d7bbd08a36
2 changed files with 25 additions and 29 deletions

View File

@@ -482,9 +482,7 @@ Public Class ImportZUGFeRDFiles
' PropertyMap items with `IsGrouped = False` are handled normally
Dim oDefaultProperties As Dictionary(Of String, XmlItemProperty) = oArgs.PropertyMap.
Where(Function(Item As KeyValuePair(Of String, XmlItemProperty))
Return Item.Value.IsGrouped = False
End Function).
Where(Function(Item) Item.Value.IsGrouped = True).
ToDictionary(Function(Item) Item.Key,
Function(Item) Item.Value)