Adds logging for bizarre case

This commit is contained in:
2023-01-21 23:01:19 -08:00
parent 5c26447d4c
commit 5e01804a85

View File

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