From 80c6235759e13263316e4c8f60b9d0f5eb7bc947 Mon Sep 17 00:00:00 2001
From: Kevin F <Freymaurer@gmx.de>
Date: Mon, 22 Feb 2021 16:09:08 +0100
Subject: [PATCH] Improve term search search speed.

---
 src/Server/OntologyDB.fs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Server/OntologyDB.fs b/src/Server/OntologyDB.fs
index 9b528bed..8358b0a2 100644
--- a/src/Server/OntologyDB.fs
+++ b/src/Server/OntologyDB.fs
@@ -90,6 +90,8 @@ SELECT max(ID) FROM Term"""
             isObsolete
     | false -> failwith "Inserting term failed."
 
+open System
+
 let getTermSuggestions cString (query:string) =
     
     use connection = establishConnection cString
@@ -99,7 +101,15 @@ let getTermSuggestions cString (query:string) =
 
     let queryParam      = getTermSuggestionsCmd.Parameters.Add("query",MySqlDbType.VarChar)
 
-    queryParam      .Value <- query
+    let query' =
+        if query.Contains " " then
+            query.Split([|" "|], StringSplitOptions.RemoveEmptyEntries)
+            |> Array.filter (fun x -> x.Length >= 3 )
+            |> String.concat " "
+        else
+            query
+
+    queryParam      .Value <- query'
 
     use reader = getTermSuggestionsCmd.ExecuteReader()
     [|