3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-21 18:17:18 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add quote definitions for team access requests

Browse source
This commit is contained in:
Andrey Antukh 2024-11-14 12:18:11 +01:00
parent 0e99b37c21
commit 036e335fc4
3 changed files with 65 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
backend/src/app/rpc/commands/teams_invitations.clj
View file

@ -532,17 +532,20 @@
team-owner (get-team-owner conn team-id)
file (when (some? file-id)
(get-file-for-team-access-request cfg file-id))
(get-file-for-team-access-request cfg file-id))]
request (upsert-team-access-request conn team-id profile-id)]
;; FIXME missing quotes
(-> cfg
(assoc ::quotes/profile-id profile-id)
(assoc ::quotes/team-id team-id)
(quotes/check! {::quotes/id ::quotes/team-access-requests-per-team}
{::quotes/id ::quotes/team-access-requests-per-requester}))
(teams/check-profile-muted conn requester)
(teams/check-email-bounce conn (:email team-owner) false)
(teams/check-email-spam conn (:email team-owner) true)
(let [factory (cond
(let [request (upsert-team-access-request conn team-id profile-id)
factory (cond
(and (some? file) (:is-default team) is-viewer)
eml/request-file-access-yourpenpot-view
@ -565,9 +568,9 @@
:team-id team-id
:file-name (:name file)
:file-id file-id
:page-id (:page-id file)}))
:page-id (:page-id file)})
(with-meta {:request request}
{::audit/props {:request 1}})))
(with-meta {:request request}
{::audit/props {:request 1}}))))