fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sarah Vaupel 2019-11-13 16:03:38 +01:00 committed by Gregor Kleen
parent 2c2dd8d3ff
commit 018082ec4a
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
messages/uniworx/de-de-formal.msg
View File

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

6
messages/uniworx/en-eu.msg
View File

@ -346,6 +346,8 @@ CourseCorrectionsTitle: Corrections for this course
CorrectorsHead sheetName: Correctors for #{sheetName} CorrectorsHead sheetName: Correctors for #{sheetName}
CorrectorAssignTitle: Assign corrector CorrectorAssignTitle: Assign corrector
CorrectionsGrade: Grade submissions online
MaterialName: Name MaterialName: Name
MaterialType: Type MaterialType: Type
MaterialTypePlaceholder: Slides, Code, Example, ... MaterialTypePlaceholder: Slides, Code, Example, ...
@ -955,7 +957,7 @@ NotificationTriggerKindEvaluation: For course evaluations
NotificationTriggerKindAllocationStaff: For central allocations (lecturers) NotificationTriggerKindAllocationStaff: For central allocations (lecturers)
NotificationTriggerKindAllocationParticipant: For central allocations NotificationTriggerKindAllocationParticipant: For central allocations
CorrCreate: Create submissions CorrCreate: Register submissions
UnknownPseudonymWord pseudonymWord: Invalid pseudonym-word “#{pseudonymWord}” UnknownPseudonymWord pseudonymWord: Invalid pseudonym-word “#{pseudonymWord}”
InvalidPseudonym pseudonym: Invalid pseudonym “#{pseudonym}” 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. 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 MenuCorrectionsUpload: Upload corrections
MenuCorrectionsDownload: Download corrections MenuCorrectionsDownload: Download corrections
MenuCorrectionsCreate: Register submissions MenuCorrectionsCreate: Register submissions
MenuCorrectionsGrade: Mark submissions online MenuCorrectionsGrade: Grade submissions online
MenuCorrectionsAssign: Assign corrections MenuCorrectionsAssign: Assign corrections
MenuCorrectionsAssignSheet name@Text: Assign corrections for #{name} MenuCorrectionsAssignSheet name@Text: Assign corrections for #{name}
MenuAuthPreds: Authorisation settings MenuAuthPreds: Authorisation settings

6
src/Handler/Corrections.hs
View File

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