Makes groups possible
This commit is contained in:
@@ -86,13 +86,13 @@
|
||||
clients
|
||||
(if-let [exact-match (first (filter
|
||||
(fn [client]
|
||||
(= (str/lower-case (:code client)) (str/lower-case client-search)))
|
||||
(= (str/lower-case (or (:code client) "INVALID")) (str/lower-case client-search)))
|
||||
clients))]
|
||||
[exact-match]
|
||||
(filter
|
||||
(fn [client]
|
||||
(or
|
||||
(str/includes? (str/lower-case (:code client)) (str/lower-case client-search))
|
||||
(str/includes? (str/lower-case (or (:code client) "INVALID")) (str/lower-case client-search))
|
||||
(str/includes? (str/lower-case (:name client)) (str/lower-case client-search))))
|
||||
clients)))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user