fix(sheet type info): give better tooltips and name to sheet types

Closes #402

messages/uniworx/de.msg

@@ -678,10 +678,11 @@ SheetGradingPassBinary': Bestanden/Nicht bestanden
 
 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.
+SheetTypeInformational grading@SheetGrading: Ohne Anrechung
+SheetTypeNotGraded: Keine Korrektur
+SheetTypeInfoNotGraded: Keine Korrektur bedeutet, dass es gar kein Feedback gibt.
 SheetTypeInfoBonus: Bonus Blätter zählen normal, erhöhen aber nicht die maximal erreichbare Punktzahl bzw. Anzahl zu bestehender Blätter.
+SheetTypeInfoInformational: Blätter ohne Anrechnung werden nirgends angerechnet, die Bewertung durch den Korrektor dient lediglich zur Information der Teilnehmer.
 SheetGradingBonusIncluded: Erzielte Bonuspunkte wurden hier bereits zu den erreichten normalen Punkten hinzugezählt.
 SummaryTitle: Zusammenfassung über
 SheetGradingSummaryTitle intgr@Integer: #{intgr} #{pluralDE intgr "Blatt" "Blätter"}
@@ -689,8 +690,8 @@ SubmissionGradingSummaryTitle intgr@Integer: #{intgr} #{pluralDE intgr "Abgabe"
 
 SheetTypeBonus': Bonus
 SheetTypeNormal': Normal
-SheetTypeInformational': Keine Wertung
-SheetTypeNotGraded': Unbewertet
+SheetTypeInformational': Ohne Anrechung
+SheetTypeNotGraded': Keine Korrektur
 
 SheetGradingMaxPoints: Maximalpunktzahl
 SheetGradingPassingPoints: Notwendig zum Bestehen

src/Handler/Sheet.hs

@@ -123,7 +123,7 @@ makeSheetForm msId template = identifyForm FIDsheet $ \html -> do
             & setTooltip MsgSheetMarkingTip)                  (sfMarkingF <$> template)
       <* aformSection MsgSheetFormType
       <*> sheetTypeAFormReq   (fslI MsgSheetType
-            & setTooltip (uniworxMessages [MsgSheetTypeInfoBonus,MsgSheetTypeInfoNotGraded]))
+            & setTooltip (uniworxMessages [MsgSheetTypeInfoBonus, MsgSheetTypeInfoInformational, MsgSheetTypeInfoNotGraded]))
                                                           (sfType        <$> template)
       <*> sheetGroupAFormReq  (fslI MsgSheetGroup)        (sfGrouping    <$> template)
       <*> submissionModeForm ((sfSubmissionMode <$> template) <|> pure (SubmissionMode False . Just $ UploadAny True defaultExtensionRestriction))

src/Handler/Utils/Form.hs

@@ -681,7 +681,7 @@ nullaryPathPiece ''SheetGrading' (camelToPathPiece . dropSuffix "'")
 embedRenderMessage ''UniWorX ''SheetGrading' ("SheetGrading" <>)
 
 
-data SheetType' = NotGraded' | Normal' | Bonus' | Informational'
+data SheetType' = Normal' | Bonus' | Informational' | NotGraded'
   deriving (Eq, Ord, Read, Show, Enum, Bounded)
 
 instance Universe SheetType'

src/Model/Migration/Types.hs

@@ -1,4 +1,4 @@
-module Model.Migration.Types where 
+module Model.Migration.Types where
 
 import ClassyPrelude.Yesod
 import Data.Aeson
@@ -13,8 +13,8 @@ import Data.Universe
 
 
 data SheetType
-  = Bonus  { maxPoints :: Current.Points } -- Erhöht nicht das Maximum, wird gutgeschrieben
-  | Normal { maxPoints :: Current.Points } -- Erhöht das Maximum, wird gutgeschrieben
+  = Normal { maxPoints :: Current.Points } -- Erhöht das Maximum, wird gutgeschrieben
+  | Bonus  { maxPoints :: Current.Points } -- Erhöht nicht das Maximum, wird gutgeschrieben
   | Pass   { maxPoints, passingPoints :: Current.Points }
   | NotGraded
   deriving (Show, Read, Eq)
@@ -58,7 +58,7 @@ instance Finite SheetSubmissionMode
 
 nullaryPathPiece ''SheetSubmissionMode camelToPathPiece
 
-  
+
 {- TODO:
   * RenderMessage instance for newtype(SheetType) if needed
 -}