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

read-only should work now

Browse Source
This commit is contained in:
Bryce
2024-01-22 11:51:30 -08:00
parent 87bd655253
commit bfa162e1cf
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/routes/auth.clj
View File

@@ -49,18 +49,17 @@
:db/id (:db/id user) :db/id (:db/id user)
:user/role (name (:user/role user)) :user/role (name (:user/role user))
:user/name (:user/name user)} :user/name (:user/name user)}
(#{"admin" "read-only"} (name (:user/role user))) (#{"admin" "read-only"} (name (:user/role user)))
(assoc :gz-clients (->> (:user/clients user) (assoc :gz-clients (->> (:user/clients user)
(map (fn [c] (map (fn [c]
(select-keys c [:client/code :db/id :client/locations]))) (select-keys c [:client/code :db/id :client/locations])))
gzip)) gzip))
(not= "admin" (name (:user/role user))) (not (#{"read-only" "admin"} (name (:user/role user))))
(assoc :user/clients (assoc :user/clients
(->> (:user/clients user) (->> (:user/clients user)
(map (fn [c] (map (fn [c]
(select-keys c [:client/code :db/id :client/locations]))))))] (select-keys c [:client/code :db/id :client/locations]))))))]
(when (and user oauth-token) (when (and user oauth-token)
auth))) auth)))

1
src/clj/auto_ap/ssr/admin/transaction_rules.fiddle
View File

@@ -0,0 +1 @@
(user/start-db)