notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

minor fixes from kyle

Browse Source
This commit is contained in:
Bryce
2023-11-09 21:26:35 -08:00
parent d1d716b21d
commit 384bb23aa2
2 changed files with 15 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/clj/auto_ap/ssr/vendor.clj
View File

@@ -9,21 +9,15 @@
(defn search [{:keys [clients query-params identity]}]
(doto (let [name-like-ids (when (not-empty (get query-params "q"))
(set (map (comp #(Long/parseLong %) :id)
(doto
(solr/query solr/impl "vendors"
(doto
{"query" (cond-> (format "name:(%s*)" (str/upper-case (solr/escape (get query-params "q"))))
(not (is-admin? identity)) (str " hidden:false"))
"fields" "id"
"limit" 300}
clojure.pprint/pprint))
clojure.pprint/pprint))))
_ (clojure.pprint/pprint name-like-ids)
valid-clients (for [n name-like-ids]
{"value" n "label" (pull-attr (dc/db conn) :vendor/name n)})]
{:body (take 10 valid-clients)})
clojure.pprint/pprint))
(let [name-like-ids (when (not-empty (get query-params "q"))
(map (comp #(Long/parseLong %) :id)
(solr/query solr/impl "vendors"
{"query" (cond-> (format "name:(%s*)" (str/upper-case (solr/escape (get query-params "q"))))
(not (is-admin? identity)) (str " hidden:false"))
"fields" "id"
"limit" 300})))
valid-clients (for [n name-like-ids]
{"value" n "label" (pull-attr (dc/db conn) :vendor/name n)})]
{:body (take 10 valid-clients)}))
(def search (wrap-json-response search))