DocumentResultList

ZooFlow/frmAdmin.vb

@@ -94,6 +94,7 @@ Partial Public Class frmAdmin
         Dim oWindow As New Window(My.LogConfig)
         Dim oWindowInfo = oWindow.GetWindowInfo()
         Dim oClipboardContents As String = Clipboard.GetText()
+        Dim oUserState = My.Application.User
 
         Try
             oProfileFilter = New ProfileFilter(My.LogConfig,
@@ -112,7 +113,8 @@ Partial Public Class frmAdmin
                                                    Return oProfileFilter.FilterProfilesBySearchResults(
                                                         oMatchingProfiles,
                                                         My.Database,
-                                                        My.Application.User)
+                                                        oUserState,
+                                                        oClipboardContents)
                                                End Function)
             oMatchingProfiles = oProfileFilter.ClearNotMatchedProfiles(oMatchingProfiles)
         Catch ex As Exception