diff --git a/messages/uniworx/categories/courses/submission/de-de-formal.msg b/messages/uniworx/categories/courses/submission/de-de-formal.msg index 73132dcdc..5e4878a79 100644 --- a/messages/uniworx/categories/courses/submission/de-de-formal.msg +++ b/messages/uniworx/categories/courses/submission/de-de-formal.msg @@ -60,6 +60,8 @@ NotAParticipant email@UserEmail tid@TermId csh@CourseShorthand: #{email} ist nic TooManyParticipants: Es wurden zu viele Mitabgebende angegeben SubmissionCreated: Abgabe erfolgreich angelegt SubmissionUpdated: Abgabe erfolgreich ersetzt +SubmissionUsersUpdated: Liste von Abgebenden erfolgreich angepasst +SubmissionUnchanged: Abgabe unverändert FileCorrected: Korrigiert (Dateien) Corrected: Korrigiert HeadingSubmissionEditHead tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Abgabe editieren/anlegen diff --git a/messages/uniworx/categories/courses/submission/en-eu.msg b/messages/uniworx/categories/courses/submission/en-eu.msg index 56cd7977f..56264963d 100644 --- a/messages/uniworx/categories/courses/submission/en-eu.msg +++ b/messages/uniworx/categories/courses/submission/en-eu.msg @@ -58,6 +58,8 @@ NotAParticipant email tid csh: #{email} is not a participant of #{tid}-#{csh}. TooManyParticipants: You have specified more than the allowed number of submittors. SubmissionCreated: Successfully created submission SubmissionUpdated: Successfully replaced submission +SubmissionUsersUpdated: Successfully changed list of submittors +SubmissionUnchanged: Submission unchanged FileCorrected: Marked (files) Corrected: Marked HeadingSubmissionEditHead tid ssh csh sheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Edit/Create submission diff --git a/src/Handler/Submission/Helper.hs b/src/Handler/Submission/Helper.hs index b55486843..ae5ecb8fb 100644 --- a/src/Handler/Submission/Helper.hs +++ b/src/Handler/Submission/Helper.hs @@ -528,8 +528,11 @@ submissionHelper tid ssh csh shn mcid = do uid <- maybe notAuthenticated return muid insert_ $ AuthorshipStatementSubmission asdId smid uid now - addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated - | otherwise -> MsgSubmissionUpdated + if | is _Nothing msmid -> addMessageI Success MsgSubmissionCreated + | is _Just mFiles -> addMessageI Success MsgSubmissionUpdated + | subUsers == subUsersOld -> addMessageI Info MsgSubmissionUnchanged + | otherwise -> addMessageI Success MsgSubmissionUsersUpdated + Just <$> encrypt smid case mCID of