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 dc18c29a4..8d70902bb 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -88,6 +88,7 @@ data SheetForm = SheetForm makeSheetForm :: Maybe SheetId -> Maybe SheetForm -> Form SheetForm makeSheetForm msId template = identForm FIDsheet $ \html -> do + -- TODO: SJ to refactor this; extract Code from getSEditR to joint code piece let oldFileIds fType | Just sId <- msId = fmap setFromList . fmap (map E.unValue) . runDB . E.select . E.from $ \(file `E.InnerJoin` sheetFile) -> do E.on $ file E.^. FileId E.==. sheetFile E.^. SheetFileFile @@ -111,11 +112,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)