From ce615287180976d24f24abd16ec8bac79a4a881d Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 18 Jul 2019 09:02:19 +0200
Subject: [PATCH] fix(exam registration): icons added to exam register message

---
 messages/uniworx/de.msg | 20 ++++++++++----------
 src/Handler/Exam.hs     | 12 ++++++++++--
 src/Utils.hs            |  2 +-
 3 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index e6081f4d2..e8b34b43a 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -7,8 +7,8 @@ BtnRegister: Anmelden
 BtnDeregister: Abmelden
 BtnCourseRegister: Zum Kurs anmelden
 BtnCourseDeregister: Vom Kurs abmelden
-BtnExamRegister: Klausuranmeldung
-BtnExamDeregister: Abmeldung von der Klausur
+BtnExamRegister: Anmelden zur Klausur
+BtnExamDeregister: Von der Klausur abmelden
 BtnHijack: Sitzung übernehmen
 BtnSave: Speichern
 PressSaveToSave: Änderungen werden erst durch Drücken des Knopfes "Speichern" gespeichert.
@@ -665,7 +665,7 @@ MailSubjectCorrectorInvitation tid@TermId ssh@SchoolId csh@CourseShorthand shn@S
 
 MailSubjectTutorInvitation tid@TermId ssh@SchoolId csh@CourseShorthand tutn@TutorialName: [#{tid}-#{ssh}-#{csh}] Einladung zum Tutor für #{tutn}
 
-MailSubjectExamCorrectorInvitation tid@TermId ssh@SchoolId csh@CourseShorthand examn@ExamName: [#{tid}-#{ssh}-#{csh}] Einladung zum Korrektor für Klausur #{examn}
+MailSubjectExamCorrectorInvitation tid@TermId ssh@SchoolId csh@CourseShorthand examn@ExamName: [#{tid}-#{ssh}-#{csh}] Einladung zum Korrektor für #{examn}
 
 MailSubjectSubmissionUserInvitation tid@TermId ssh@SchoolId csh@CourseShorthand shn@SheetName: [#{tid}-#{ssh}-#{csh}] Einladung zu einer Abgabe für #{shn}
 
@@ -966,9 +966,9 @@ TutorInvitationDeclined tutn@TutorialName: Sie haben die Einladung, Tutor für #
 TutorInviteHeading tutn@TutorialName: Einladung zum Tutor für #{tutn}
 TutorInviteExplanation: Sie wurden eingeladen, Tutor zu sein.
 
-ExamCorrectorInvitationAccepted examn@ExamName: Sie wurden als Korrektor für Klausur #{examn} eingetragen
-ExamCorrectorInvitationDeclined examn@ExamName: Sie haben die Einladung, Korrektor für Klausur #{examn} zu werden, abgelehnt
-ExamCorrectorInviteHeading examn@ExamName: Einladung zum Korrektor für Klausur #{examn}
+ExamCorrectorInvitationAccepted examn@ExamName: Sie wurden als Korrektor für #{examn} eingetragen
+ExamCorrectorInvitationDeclined examn@ExamName: Sie haben die Einladung, Korrektor für  #{examn} zu werden, abgelehnt
+ExamCorrectorInviteHeading examn@ExamName: Einladung zum Korrektor für #{examn}
 ExamCorrectorInviteExplanation: Sie wurden eingeladen, Klausur-Korrektor zu sein.
 
 SubmissionUserInvitationAccepted shn@SheetName: Sie wurden als Mitabgebende(r) für eine Abgabe zu #{shn} eingetragen
@@ -1150,8 +1150,8 @@ ExamPartWeight: Gewichtung
 ExamPartResultPoints: Erreichte Punkte
 
 ExamNameTaken exam@ExamName: Es existiert bereits eine Klausur mit Namen #{exam}
-ExamCreated exam@ExamName: Klausur #{exam} erfolgreich angelegt
-ExamEdited exam@ExamName: Klausur #{exam} erfolgreich bearbeitet
+ExamCreated exam@ExamName: #{exam} erfolgreich angelegt
+ExamEdited exam@ExamName: #{exam} erfolgreich bearbeitet
 
 ExamNoShow: Nicht erschienen
 ExamVoided: Entwertet
@@ -1163,8 +1163,8 @@ ExamPassed: Bestanden
 ExamNotPassed: Nicht bestanden
 ExamResult: Klausurergebnis
 
-ExamRegisteredSuccess exam@ExamName: Erfolgreich zur Klausur #{exam} angemeldet
-ExamDeregisteredSuccess exam@ExamName: Erfolgreich von der Klausur #{exam} abgemeldet
+ExamRegisteredSuccess exam@ExamName: Erfolgreich zur #{exam} angemeldet
+ExamDeregisteredSuccess exam@ExamName: Erfolgreich von der #{exam} abgemeldet
 ExamRegistered: Angemeldet
 ExamNotRegistered: Nicht angemeldet
 ExamRegistration: Anmeldung
diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 5b0e634c5..835da05c2 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -1026,13 +1026,21 @@ postERegisterR tid ssh csh examn = do
         now <- liftIO getCurrentTime
         insert_ $ ExamRegistration eId uid Nothing now
         audit' $ TransactionExamRegister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
-      addMessageI Success $ MsgExamRegisteredSuccess examn
+      addMessageWidget Success [whamlet|
+          <div>#{iconExamRegister True}
+          <div>&nbsp;
+          <div>_{MsgExamRegisteredSuccess   examn}
+          |]
       redirect $ CExamR tid ssh csh examn EShowR
     BtnExamDeregister -> do
       runDB $ do
         deleteBy $ UniqueExamRegistration eId uid
         audit' $ TransactionExamDeregister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
-      addMessageI Info $ MsgExamDeregisteredSuccess examn -- yes, it's a success message, but it should be visually different from a positive success, since most will just note the positive green color! Maybe make it even a warning?!
+      addMessageWidget Info [whamlet|
+        <div>#{iconExamRegister False}
+        <div>&nbsp;
+        <div>_{MsgExamDeregisteredSuccess examn}
+        |] -- yes, it's a success message, but it should be visually different from a positive success, since most will just note the positive green color! See discussion on commit 5f4925a4
       redirect $ CExamR tid ssh csh examn EShowR
 
   invalidArgs ["Register/Deregister button required"]
diff --git a/src/Utils.hs b/src/Utils.hs
index 8dc77580c..7fbe88857 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -278,7 +278,7 @@ rationalToFixed = MkFixed . round . (* (fromIntegral $ resolution (Proxy :: HasR
 
 rationalToFixed3 :: Rational -> Fixed E3
 rationalToFixed3 = rationalToFixed
-  
+
 rationalToFixed2 :: Rational -> Fixed E2
 rationalToFixed2 = rationalToFixed