Zooflow: Work on Search FOrm

GUIs.ZooFlow/Search/Test/Search.vb

@@ -71,9 +71,18 @@ Namespace Search
         End Function
 
         Public Function GetValueTokensForAttribute() As Dictionary(Of String, Object)
-            Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE DEFAULT_SEARCH_ATTRIBUTE = 1 AND LANG_CODE = '{_UserState.Language}'"
-            Dim oTable = _Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, Constants.DatabaseType.IDB, $"DEFAULT_SEARCH_ATTRIBUTE = 1 AND LANG_CODE = '{_UserState.Language}'")
+            Dim oSQL = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{_UserState.Language}', {_UserState.UserId}"
+            Dim oTable = _Database.GetDatatableIDB(oSQL)
             Dim oTokens As New Dictionary(Of String, Object)
+
+            For Each oRow As DataRow In oTable.Rows
+                Dim oTerm = oRow.Item("TERM")
+                If oTokens.ContainsKey(oTerm) = False Then
+                    oTokens.Add(oTerm, New AttributeValueToken(oTerm))
+                End If
+            Next
+
+            Return oTokens
         End Function
 
         Public Function GetOperatorTokens(pDataType As Type) As Dictionary(Of String, Object)