Fixes 1099 page

2023-04-06 19:57:32 -07:00
parent e291c22179
commit 0423b31d02
4 changed files with 13 additions and 5 deletions
--- a/iol_ion/src/iol_ion/query.clj
+++ b/iol_ion/src/iol_ion/query.clj
@@ -51,4 +51,9 @@
          (range))))


-
+(defn can-see-client? [identity client]
+  (when (not client)
+    (println "WARNING - permission checking for null client"))
+  (or (= "admin" (:user/role identity))
+      ((set (map :db/id (:user/clients identity))) (:db/id client))
+      ((set (map :db/id (:user/clients identity))) client)))