From d1a8d9cc173cd6a4a7c4655de02cf6c58e205c0e Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 6 May 2019 18:47:01 +0200 Subject: [PATCH] Minor reformulations --- messages/uniworx/de.msg | 3 ++- src/Handler/Sheet.hs | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 19941107c..d6657f2f3 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -293,11 +293,12 @@ AddCorrector: Zusätzlicher Korrektor CorrectorExists: Nutzer ist bereits als Korrektor eingetragen SheetCorrectorsTitle tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: Korrektoren für #{display tid}-#{display ssh}-#{csh} #{sheetName} CountTutProp: Tutorien zählen gegen Proportion +CountTutPropTip: Wenn Abgaben nach Tutorium zugeteilt werden, zählen diese Zuteilungen in Bezug auf den jeweiligen Anteil? AutoAssignCorrs: Korrekturen nach Ablauf des Abgabezeitraums automatisch zuteilen Corrector: Korrektor Correctors: Korrektoren CorState: Status -CorByTut: Nach Tutorium +CorByTut: Zuteilung nach Tutorium CorProportion: Anteil CorByProportionOnly proportion@Rational: #{display proportion} Anteile CorByProportionIncludingTutorial proportion@Rational: #{display proportion} Anteile - Tutorium diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index b4d549d49..5a9448177 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -655,7 +655,7 @@ correctorForm shid = wFormToAForm $ do when (not (Map.null loads) && applyDefaultLoads) $ addMessageI Warning MsgCorrectorsDefaulted - countTutRes <- wreq checkBoxField (fsm MsgCountTutProp) . Just . any (\(_, Load{..}) -> fromMaybe False byTutorial) $ Map.elems loads + countTutRes <- wreq checkBoxField (fslI MsgCountTutProp & setTooltip MsgCountTutPropTip) . Just . any (\(_, Load{..}) -> fromMaybe False byTutorial) $ Map.elems loads let previousCorrectors :: E.SqlQuery (E.SqlExpr (Entity User))