jj: Fix error in GetSearchDocuments & GetIndexValue

This commit is contained in:
Jonathan Jenne 2018-10-09 14:07:16 +02:00
parent fb976bc43a
commit 1cf17b00e4

View File

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