fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

feat(submissions): also warn correctors about multiple submissions

Browse Source
This commit is contained in:
Gregor Kleen 2021-03-19 16:25:48 +01:00
parent c19a00dcef
commit 8795edd1fa
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Submission/Helper.hs
View File

@ -582,6 +582,8 @@ submissionHelper tid ssh csh shn mcid = do
guardM . lift $ orM
[ hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID SubDelR
, hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID SubShowR
, hasWriteAccessTo $ CSubmissionR tid ssh csh shn cID CorrectionR
, hasReadAccessTo $ CSheetR tid ssh csh shn SSubsR
]
guardM . lift . E.selectExists . E.from $ \(submissionUser `E.InnerJoin` (otherSubmissionUser `E.InnerJoin` submission)) -> do
E.on $ otherSubmissionUser E.^. SubmissionUserSubmission E.==. submission E.^. SubmissionId