feat(corrections): added missing titles; small message fixes

messages/uniworx/de-de-formal.msg

@@ -347,6 +347,8 @@ CourseCorrectionsTitle: Korrekturen für diesen Kurs
 CorrectorsHead sheetName@SheetName: Korrektoren für #{sheetName}
 CorrectorAssignTitle: Korrektor zuweisen
 
+CorrectionsGrade: Abgaben online korrigieren
+
 MaterialName: Name
 MaterialType: Art
 MaterialTypePlaceholder: Folien, Code, Beispiel, ...
@@ -958,7 +960,7 @@ NotificationTriggerKindEvaluation: Für Vorlesungsumfragen
 NotificationTriggerKindAllocationStaff: Für Zentralanmeldungen (Dozenten)
 NotificationTriggerKindAllocationParticipant: Für Zentralanmeldungen
 
-CorrCreate: Abgaben erstellen
+CorrCreate: Abgaben registrieren
 UnknownPseudonymWord pseudonymWord@Text: Unbekanntes Pseudonym-Wort "#{pseudonymWord}"
 InvalidPseudonym pseudonym@Text: Invalides Pseudonym "#{pseudonym}"
 InvalidPseudonymSubmissionIgnored oPseudonyms@Text iPseudonym@Text: Abgabe mit Pseudonymen „#{oPseudonyms}“ wurde ignoriert, da „#{iPseudonym}“ nicht automatisiert zu einem validen Pseudonym korrigiert werden konnte.

messages/uniworx/en-eu.msg

@@ -346,6 +346,8 @@ CourseCorrectionsTitle: Corrections for this course
 CorrectorsHead sheetName: Correctors for #{sheetName}
 CorrectorAssignTitle: Assign corrector
 
+CorrectionsGrade: Grade submissions online
+
 MaterialName: Name
 MaterialType: Type
 MaterialTypePlaceholder: Slides, Code, Example, ...
@@ -955,7 +957,7 @@ NotificationTriggerKindEvaluation: For course evaluations
 NotificationTriggerKindAllocationStaff: For central allocations (lecturers)
 NotificationTriggerKindAllocationParticipant: For central allocations
 
-CorrCreate: Create submissions
+CorrCreate: Register submissions
 UnknownPseudonymWord pseudonymWord: Invalid pseudonym-word “#{pseudonymWord}”
 InvalidPseudonym pseudonym: Invalid pseudonym “#{pseudonym}”
 InvalidPseudonymSubmissionIgnored oPseudonyms iPseudonym: The submission with pseudonyms “#{oPseudonyms}” has been ignored since “#{iPseudonym}” could not be automatically corrected to be a valid pseudonym.
@@ -1114,7 +1116,7 @@ MenuSheetClone: Clone exercise sheet
 MenuCorrectionsUpload: Upload corrections
 MenuCorrectionsDownload: Download corrections
 MenuCorrectionsCreate: Register submissions
-MenuCorrectionsGrade: Mark submissions online
+MenuCorrectionsGrade: Grade submissions online
 MenuCorrectionsAssign: Assign corrections
 MenuCorrectionsAssignSheet name@Text: Assign corrections for #{name}
 MenuAuthPreds: Authorisation settings

src/Handler/Corrections.hs

@@ -1004,7 +1004,8 @@ postCorrectionsCreateR = do
         , formEncoding = pseudonymEncoding
         }
 
-  defaultLayout
+  siteLayoutMsg MsgCorrCreate $ do
+    setTitleI MsgCorrCreate
     $(widgetFile "corrections-create")
   where
     partitionEithers' :: [[Either a b]] -> ([[b]], [a])
@@ -1089,7 +1090,8 @@ postCorrectionsGradeR = do
           content = Right $(widgetFile "messages/correctionsUploaded")
       unless (null subs') $ addMessageModal Success trigger content
 
-  defaultLayout $
+  siteLayoutMsg MsgCorrectionsGrade $ do
+    setTitleI MsgCorrectionsGrade
     $(widgetFile "corrections-grade")