From 8795edd1fa452d012704146481c8318d206634a5 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 19 Mar 2021 16:25:48 +0100 Subject: [PATCH] feat(submissions): also warn correctors about multiple submissions --- src/Handler/Submission/Helper.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Handler/Submission/Helper.hs b/src/Handler/Submission/Helper.hs index 749f80ffb..d85afd934 100644 --- a/src/Handler/Submission/Helper.hs +++ b/src/Handler/Submission/Helper.hs @@ -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