search fix

src/clj/auto_ap/ssr/search.clj

@@ -6,7 +6,8 @@
    [clj-http.client :as client]
    [clojure.data.json :as json]
    [clojure.string :as str]
-   [auto-ap.solr :as solr]))
+   [auto-ap.solr :as solr]
+   [com.brunobonacci.mulog :as mu]))
 
 (defn try-cleanse-date [d]
   (try
@@ -102,7 +103,10 @@
        [:div.block "No results found."])]))
 
 (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
       [:div#search  {:style {:height "400px" :overflow "auto"}}