From 9dbef1fe0f2d69eef5f6ff830d5ac338b84aa0f7 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 16 Jul 2019 11:36:50 +0200
Subject: [PATCH] fix(sheet type info): give better tooltips and name to sheet
 types

Closes #402
---
 messages/uniworx/de.msg      | 11 ++++++-----
 src/Handler/Sheet.hs         |  2 +-
 src/Handler/Utils/Form.hs    |  2 +-
 src/Model/Migration/Types.hs |  8 ++++----
 4 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index 792c2468c..50e9cb9bf 100644
--- a/messages/uniworx/de.msg
+++ b/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
diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 792fd11ef..0c57bb7af 100644
--- a/src/Handler/Sheet.hs
+++ b/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))
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 76a0a1a31..4243a318c 100644
--- a/src/Handler/Utils/Form.hs
+++ b/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'
diff --git a/src/Model/Migration/Types.hs b/src/Model/Migration/Types.hs
index e5ed53362..2126ce178 100644
--- a/src/Model/Migration/Types.hs
+++ b/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
 -}