From 2184699b122c22aca9f218abca25d6bd4c25fc84 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 18 Jul 2018 13:15:13 +0200 Subject: [PATCH] Minor typos fixed. --- messages/de.msg | 2 +- src/Handler/Sheet.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/messages/de.msg b/messages/de.msg index 99220e436..0c7147ecd 100644 --- a/messages/de.msg +++ b/messages/de.msg @@ -63,7 +63,7 @@ SheetHint: Hinweis SheetHintFrom: Hinweis ab SheetSolution: Lösung SheetSolutionFrom: Lösung ab -SheetMarking: Korrekturhinweise +SheetMarking: Hinweise für Korrektoren SheetType: Bewertung SheetVisibleFrom: Sichtbar ab diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index 2dfe98535..6e778ecd6 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -111,11 +111,11 @@ makeSheetForm msId template = identForm FIDsheet $ \html -> do (sfActiveFrom <$> template) <*> areq utcTimeField (fslI MsgSheetActiveTo) (sfActiveTo <$> template) <*> aopt (multiFileField $ oldFileIds SheetExercise) (fsb "Aufgabenstellung") (sfSheetF <$> template) - <*> aopt utcTimeField (fslpI MsgSheetHintFrom "Datum, sonst nur Korrektoren" + <*> aopt utcTimeField (fslpI MsgSheetHintFrom "Datum, sonst nur für Korrektoren" & setTooltip "Ohne Datum nie für Teilnehmer sichtbar, Korrektoren können diese Dateien immer herunterladen") (sfHintFrom <$> template) <*> aopt (multiFileField $ oldFileIds SheetHint) (fslI MsgSheetHint) (sfHintF <$> template) - <*> aopt utcTimeField (fslpI MsgSheetSolutionFrom "Datum, sonst nur Korrektoren" + <*> aopt utcTimeField (fslpI MsgSheetSolutionFrom "Datum, sonst nur für Korrektoren" & setTooltip "Ohne Datum nie für Teilnehmer sichtbar, Korrektoren können diese Dateien immer herunterladen") (sfSolutionFrom <$> template) <*> aopt (multiFileField $ oldFileIds SheetSolution) (fslI MsgSheetSolution) (sfSolutionF <$> template)