Merge pull request #5315 from penpot/niwinz-team-access-request-quotes

🎉 Add quote definitions for team access requests
This commit is contained in:
Alejandro 2024-11-19 06:52:04 +01:00 committed by GitHub
commit 5d95d755ad
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 65 additions and 9 deletions

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}}))))