AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj: Fix error in GetSearchDocuments & GetIndexValue

Browse Source
This commit is contained in:
Jonathan Jenne 2018-10-09 14:07:16 +02:00
parent fb976bc43a
commit 1cf17b00e4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Modules.Windream/Windream2.vb
View File

@ -485,7 +485,7 @@ Public Class Windream2
Case Constants.SEARCH_TYPE_QUICK_SEARCH Case Constants.SEARCH_TYPE_QUICK_SEARCH
Dim oQuickSearch As New WMQuickSearch With { Dim oQuickSearch As New WMQuickSearch With {
.WMSession = Session, .WMSession = Session,
.SearchProfilePath = SearchFilePath .SearchProfilePath = oProfilePath
} }
oQuickSearch.ClearSearch() oQuickSearch.ClearSearch()
oQuickSearch.LoadSearchProfile(oProfileName) oQuickSearch.LoadSearchProfile(oProfileName)
@ -494,7 +494,7 @@ Public Class Windream2
Case Constants.SEARCH_TYPE_INDEX_SEARCH Case Constants.SEARCH_TYPE_INDEX_SEARCH
Dim oIndexSearch As New WMIndexSearch With { Dim oIndexSearch As New WMIndexSearch With {
.WMSession = Session, .WMSession = Session,
.SearchProfilePath = SearchFilePath .SearchProfilePath = oProfilePath
} }
oIndexSearch.ClearSearch() oIndexSearch.ClearSearch()
oIndexSearch.LoadSearchProfile(oProfileName) oIndexSearch.LoadSearchProfile(oProfileName)
@ -503,7 +503,7 @@ Public Class Windream2
Case Constants.SEARCH_TYPE_OBJECTTYPE_SEARCH Case Constants.SEARCH_TYPE_OBJECTTYPE_SEARCH
Dim oObjecttypeSearch As New WMObjectTypeSearch With { Dim oObjecttypeSearch As New WMObjectTypeSearch With {
.WMSession = Session, .WMSession = Session,
.SearchProfilePath = SearchFilePath .SearchProfilePath = oProfilePath
} }
oObjecttypeSearch.ClearSearch() oObjecttypeSearch.ClearSearch()
oObjecttypeSearch.LoadSearchProfile(oProfileName) oObjecttypeSearch.LoadSearchProfile(oProfileName)
@ -676,7 +676,7 @@ Public Class Windream2
Return oResult Return oResult
End If End If
If TypeOf oValues Is Object Then If TypeOf oValues Is IEnumerable Then
For Each oValue In oValues For Each oValue In oValues
oResult.Add(oValue) oResult.Add(oValue)
Next Next