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

search fix

Browse Source
This commit is contained in:
Bryce Covert
2023-05-04 17:32:29 -07:00
parent b200728c6a
commit d77a88dece
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/ssr/search.clj
View File

@@ -6,7 +6,8 @@
[clj-http.client :as client] [clj-http.client :as client]
[clojure.data.json :as json] [clojure.data.json :as json]
[clojure.string :as str] [clojure.string :as str]
[auto-ap.solr :as solr])) [auto-ap.solr :as solr]
[com.brunobonacci.mulog :as mu]))
(defn try-cleanse-date [d] (defn try-cleanse-date [d]
(try (try
@@ -102,7 +103,10 @@
[:div.block "No results found."])])) [:div.block "No results found."])]))
(defn dialog-contents [request] (defn dialog-contents [request]
(if-let [q (:q (:params request))] (mu/log ::params
:params (:params request)
:form (:form-params request))
(if-let [q (get (:form-params request) "q")]
(html-response (search-results* q (:identity request))) (html-response (search-results* q (:identity request)))
(html-response (html-response
[:div#search {:style {:height "400px" :overflow "auto"}} [:div#search {:style {:height "400px" :overflow "auto"}}