From 1cf17b00e4dc75fc99d3663edbb829f0b97dddca Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 9 Oct 2018 14:07:16 +0200 Subject: [PATCH] jj: Fix error in GetSearchDocuments & GetIndexValue --- Modules.Windream/Windream2.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Modules.Windream/Windream2.vb b/Modules.Windream/Windream2.vb index 34f8a875..126e83a7 100644 --- a/Modules.Windream/Windream2.vb +++ b/Modules.Windream/Windream2.vb @@ -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