From 8e4afc554b5079483f081438ba436c6d63f2bc63 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 30 Nov 2018 13:28:20 +0100 Subject: [PATCH] Fix #239 --- messages/uniworx/de.msg | 4 ++-- src/Handler/Corrections.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 44209ffb9..7ecb99df0 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -261,13 +261,13 @@ RatingComment: Kommentar SubmissionUsers: Studenten Rating: Korrektur RatingPoints: Punkte -RatingDone: Bewertung fertiggestellt +RatingDone: Bewertung sichtbar RatingPercent: Erreicht RatingFiles: Korrigierte Dateien PointsNotPositive: Punktzahl darf nicht negativ sein PointsTooHigh maxPoints@Points: Punktzahl darf nicht höher als #{tshow maxPoints} sein RatingPointsDone: Abgabe zählt als korrigiert, gdw. Punktezahl gesetzt ist -ColumnRatingPointsDone: Punktzahl/Abgeschlossen +ColumnRatingPoints: Punktzahl Pseudonyms: Pseudonyme FileTitle: Dateiname diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index aa16a97b5..72328a5c5 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -163,7 +163,7 @@ colRatedField = sortable Nothing (i18nCell MsgRatingDone) $ formCell (\DBRow{ dbrOutput=(Entity _ (submissionRatingDone -> done), _, _, _, _) } _ -> over (_1.mapped) (_1 .~) . over _2 fvInput <$> mreq checkBoxField "" (Just done)) colPointsField :: Colonnade _ CorrectionTableData (DBCell _ (FormResult (DBFormResult CorrectionTableData SubmissionId (a, Maybe Points, b)))) -colPointsField = sortable (Just "rating") (i18nCell MsgColumnRatingPointsDone) $ formCell +colPointsField = sortable (Just "rating") (i18nCell MsgColumnRatingPoints) $ formCell (\DBRow{ dbrOutput=(Entity subId _, _, _, _, _) } -> return subId) (\DBRow{ dbrOutput=(Entity _ Submission{..}, Entity _ Sheet{..}, _, _, _) } _ -> case sheetType of NotGraded -> over (_1.mapped) (_2 .~) <$> pure (FormSuccess Nothing, mempty)