From 68e5240a7c877f556b64597b4b1618c887f03e12 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sat, 21 Jan 2023 23:03:37 -0800 Subject: [PATCH] Uses string matching for form params --- src/clj/auto_ap/ssr/company_dropdown.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/ssr/company_dropdown.clj b/src/clj/auto_ap/ssr/company_dropdown.clj index 5666ecf4..6836e9df 100644 --- a/src/clj/auto_ap/ssr/company_dropdown.clj +++ b/src/clj/auto_ap/ssr/company_dropdown.clj @@ -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)))