From bf20d6f4e84353d7d83626377ccf41204832ac2c Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Wed, 17 Jul 2019 11:52:09 +0200
Subject: [PATCH] fix(submissions): submitting produces an success alert now

Closes #286
---
 messages/uniworx/de.msg   | 4 +++-
 src/Handler/Submission.hs | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

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