diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 88a2d6821..3e89d21a4 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -7,7 +7,7 @@ BtnRegister: Anmelden BtnDeregister: Abmelden BtnCourseRegister: Zum Kurs anmelden BtnCourseDeregister: Vom Kurs abmelden -BtnExamRegister: Klasuranmeldung +BtnExamRegister: Klausuranmeldung BtnExamDeregister: Abmeldung von der Klausur BtnHijack: Sitzung übernehmen BtnSave: Speichern @@ -582,6 +582,8 @@ SheetCorrectorSubmissionsTip: Abgabe erfolgt über ein Uni2work-externes Verfahr SubmissionNoUploadExpected: Es ist keine Abgabe von Dateien vorgesehen. SubmissionReplace: Abgabe ersetzen +SubmissionCreated: Abgabe erfolgreich angelegt +SubmissionUpdated: Abgabe erfolgreich ersetzt AdminFeaturesHeading: Studiengänge StudyTerms: Studiengänge diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 6dd006d40..cd367b493 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -451,6 +451,8 @@ submissionHelper tid ssh csh shn mcid = do deleteWhere [InvitationFor ==. invRef @SubmissionUser smid, InvitationEmail /<-. subEmails] insertMany_ $ map (flip SubmissionUser smid) subUids sinkInvitationsF submissionUserInvitationConfig $ map (\lEmail -> (lEmail, smid, (InvDBDataSubmissionUser, InvTokenDataSubmissionUser))) subEmails + addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated + | otherwise -> MsgSubmissionUpdated return smid cID <- encrypt smid return $ Just cID