Uses string matching for form params
This commit is contained in:
@@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user