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

fix(submissions): notDE, notEN for unambiguous negation

Browse Source
This commit is contained in:
Sarah Vaupel 2022-02-07 23:03:19 +01:00 committed by Sarah Vaupel
parent d02e203f91
commit ae66fdfb8a
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/categories/courses/submission/de-de-formal.msg
View File

@ -160,7 +160,7 @@ SubmissionDownloadGroups: Mit festen Abgabegruppen
CorrAutoSetCorrector: Korrekturen verteilen CorrAutoSetCorrector: Korrekturen verteilen
CorrDelete: Abgaben löschen CorrDelete: Abgaben löschen
CorrSetCorrectionsDone: Korrekturen als abgeschlossen markieren CorrSetCorrectionsDone: Korrekturen als abgeschlossen markieren
SetCorrectionsDone b@Bool: Korrekturen als #{bool "nicht" "" b} abgeschlossen markiert SetCorrectionsDone b@Bool: Korrekturen als #{notDE b} abgeschlossen markiert
SubmissionCorrected: Korrigiert SubmissionCorrected: Korrigiert
CorrectionSheets: Übersicht Korrekturen nach Blättern CorrectionSheets: Übersicht Korrekturen nach Blättern
CorrectionCorrectors: Übersicht Korrekturen nach Korrektor:innen CorrectionCorrectors: Übersicht Korrekturen nach Korrektor:innen

2
messages/uniworx/categories/courses/submission/en-eu.msg
View File

@ -160,7 +160,7 @@ SubmissionDownloadGroups: With registered submission groups
CorrAutoSetCorrector: Distribute corrections CorrAutoSetCorrector: Distribute corrections
CorrDelete: Delete submissions CorrDelete: Delete submissions
CorrSetCorrectionsDone: Set corrections as done CorrSetCorrectionsDone: Set corrections as done
SetCorrectionsDone b: Set corrections as #{bool "not" "" b} done SetCorrectionsDone b: Set corrections as #{notEN b} done
SubmissionCorrected: Marked SubmissionCorrected: Marked
CorrectionSheets: Corrections by sheet CorrectionSheets: Corrections by sheet
CorrectionCorrectors: Corrections by corrector CorrectionCorrectors: Corrections by corrector

5
src/Foundation/I18n.hs
View File

@ -142,6 +142,11 @@ ordinalEN (toMessage -> numStr) = case lastChar of
where where
lastChar = last <$> fromNullable numStr lastChar = last <$> fromNullable numStr
notDE :: Bool -> Text
notDE = bool "nicht" ""
notEN :: Bool -> Text
notEN = bool "not" ""
-- | Convenience function for i18n messages definitions -- | Convenience function for i18n messages definitions
maybeToMessage :: ToMessage m => Text -> Maybe m -> Text -> Text maybeToMessage :: ToMessage m => Text -> Maybe m -> Text -> Text