Adds logging for bizarre case
This commit is contained in:
@@ -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))))]
|
||||
|
||||
Reference in New Issue
Block a user