From d77a88decea5d98ca348b5ef6a2ad758f9e785fd Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Thu, 4 May 2023 17:32:29 -0700
Subject: [PATCH] search fix

---
 src/clj/auto_ap/ssr/search.clj | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/clj/auto_ap/ssr/search.clj b/src/clj/auto_ap/ssr/search.clj
index 9dc8bc50..84a7af06 100644
--- a/src/clj/auto_ap/ssr/search.clj
+++ b/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"}}