From 38e32b56fb53f7ae8fd70bd93017c07b5cae9bd7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 12 May 2019 15:02:06 +0200 Subject: [PATCH] Don't hide submission files that have no corrected version --- src/Handler/Submission.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 3077a1554..2f7d5404d 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -481,6 +481,7 @@ submissionHelper tid ssh csh shn mcid = do E.on $ f1 E.?. FileTitle E.==. f2 E.?. FileTitle E.&&. sf1 E.?. SubmissionFileSubmission E.==. sf2 E.?. SubmissionFileSubmission E.&&. sf1 E.?. SubmissionFileId E.!=. sf2 E.?. SubmissionFileId + E.&&. sf2 E.?. SubmissionFileIsDeletion E.==. E.val (Just False) E.on $ f1 E.?. FileId E.==. sf1 E.?. SubmissionFileFile E.where_ $ (sf1 E.?. SubmissionFileIsUpdate E.==. E.val (Just False) E.||. E.isNothing (sf1 E.?. SubmissionFileIsUpdate))