Uses string matching for form params

This commit is contained in:
2023-01-21 23:03:37 -08:00
parent 5e01804a85
commit 68e5240a7c

View File

@@ -94,9 +94,9 @@ document.getElementById(\"company-search-value\").dispatchEvent(new Event('chang
(defn active-client [{:keys [identity params] :as request}]
(auto-ap.logging/info ::searched
:params params)
(assert-can-see-client identity (Long/parseLong (:search params)))
(assert-can-see-client identity (Long/parseLong (or (:search params) (get params "search"))))
(let [new-session (assoc (:session request) :client
(d/pull (d/db conn) [:db/id :client/name :client/code] (Long/parseLong (:search params))))]
(d/pull (d/db conn) [:db/id :client/name :client/code] (Long/parseLong (or (:search params) (get params "search")))))]
(assoc
(html-response
(dropdown (assoc request :session new-session)))