notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Adds logging for bizarre case

Browse Source
This commit is contained in:
Bryce Covert
2023-01-21 23:01:19 -08:00
parent 5c26447d4c
commit 5e01804a85
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/ssr/company_dropdown.clj
View File

@@ -92,6 +92,8 @@ document.getElementById(\"company-search-value\").dispatchEvent(new Event('chang
;; TODO PERMS ;; TODO PERMS
(defn active-client [{:keys [identity params] :as request}] (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 (:search params)))
(let [new-session (assoc (:session request) :client (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 (:search params))))]