diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 8b15af8b0..474c0ab8f 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -390,8 +390,8 @@ SheetTypeBonus grading@SheetGrading: Bonus SheetTypeNormal grading@SheetGrading: Normal SheetTypeInformational grading@SheetGrading: Keine Wertung SheetTypeNotGraded: Unbewertet +SheetTypeInfoNotGraded: Blätter ohne Wertung werden nirgends angerechnet, die Bewertung durch den Korrektor dient lediglich zur Information der Teilnehmer. SheetTypeInfoBonus: Bonus Blätter zählen normal, erhöhen aber nicht die maximal erreichbare Punktzahl bzw. Anzahl zu bestehender Blätter. -SheetTypeInfoNotGraded: Blätter ohne Wertung werden nirgends angerechnet, die Bewertung durch den Korrektor dient lediglich zur Information an die Teilnehmer. SheetGradingBonusIncluded: Erzielte Bonuspunkte wurden hier bereits zu den erreichten normalen Punkten hinzugezählt. SheetGradingSummaryTitle n@Int: Zusammenfassung über alle #{display n} Blätter SubmissionGradingSummaryTitle n@Int: Zusammenfassung über alle #{display n} Abgaben diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index cc16635d7..57ce35936 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -312,7 +312,7 @@ nullaryPathPiece ''SheetGrading' (camelToPathPiece . dropSuffix "'") embedRenderMessage ''UniWorX ''SheetGrading' ("SheetGrading" <>) -data SheetType' = Bonus' | Normal' | Informational' | NotGraded' +data SheetType' = Normal' | Bonus' | Informational' | NotGraded' deriving (Eq, Ord, Read, Show, Enum, Bounded) instance Universe SheetType' @@ -353,8 +353,8 @@ sheetTypeAFormReq :: FieldSettings UniWorX -> Maybe SheetType -> AForm Handler S sheetTypeAFormReq fs template = multiActionA fs selOptions (classify' <$> template) where selOptions = Map.fromList - [ ( Bonus' , Bonus <$> gradingReq ) - , ( Normal', Normal <$> gradingReq ) + [ ( Normal', Normal <$> gradingReq ) + , ( Bonus' , Bonus <$> gradingReq ) , ( Informational', Informational <$> gradingReq ) , ( NotGraded', pure NotGraded ) ]