diff --git a/messages/de.msg b/messages/de.msg index 8e7c23ec8..65cecd3ac 100644 --- a/messages/de.msg +++ b/messages/de.msg @@ -166,6 +166,7 @@ FileTitle: Dateiname FileModified: Letzte Änderung FileCorrected: Korrigiert +FileCorrectedDeleted: Korrigiert (gelöscht) RatingUpdated: Korrektur gespeichert RatingDeleted: Korrektur zurückgesetzt RatingFilesUpdated: Korrigierte Dateien überschrieben \ No newline at end of file diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index d5ab0d592..adb967196 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -252,7 +252,8 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do | otherwise -> textCell $ bool (<> "/") id isFile fileTitle' , sortable Nothing (cell mempty) $ \(coalesce -> (_, mCorr)) -> case mCorr of Nothing -> cell mempty - Just (_, Entity _ File{..}) + Just (Entity _ SubmissionFile{..}, Entity _ File{..}) + | submissionFileIsDeletion -> textCell MsgFileCorrectedDeleted | isJust fileContent -> anchorCell (\() -> CSubmissionR tid csh shn cid $ SubDownloadR SubmissionCorrected fileTitle) (\() -> [whamlet|_{MsgFileCorrected}|]) () @@ -270,7 +271,7 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do E.on $ f2 E.?. FileId E.==. sf2 E.?. SubmissionFileFile E.on $ f1 E.?. FileTitle E.==. f2 E.?. FileTitle E.&&. sf1 E.?. SubmissionFileSubmission E.==. sf2 E.?. SubmissionFileSubmission - E.&&. f1 E.?. FileId E.!=. f2 E.?. FileId + E.&&. sf1 E.?. SubmissionFileId E.!=. sf2 E.?. SubmissionFileId 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))