final step?

2022-10-26 08:06:04 -07:00
parent 3cc6c42ac3
commit 85e2381214
2 changed files with 10 additions and 6 deletions
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -507,7 +507,8 @@
 (defn get-journal-detail-report [context input _]
  {:categories 
   (for [client-id (:client_ids input)
-         :let      [account-lookup (build-account-lookup client-id)
+         :let      [_ (assert-can-see-client (:id context) client-id)
+                    account-lookup (build-account-lookup client-id)
                    c (d/pull (d/db conn) '[:client/locations] client-id) ]
         location  (:client/locations c)
         category  (:categories input)