diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 980015007..bd11b5726 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -255,7 +255,7 @@ CorByProportionIncludingTutorial proportion@Rational: #{display proportion} Ante CorByProportionExcludingTutorial proportion@Rational: #{display proportion} Anteile + Tutorium RowCount count@Int64: #{display count} #{pluralDE count "Eintrag" "Einträge"} nach Filter -DeleteRow: Zeile entfernen +DeleteRow: Entfernen ProportionNegative: Anteile dürfen nicht negativ sein CorrectorUpdated: Korrektor erfolgreich aktualisiert CorrectorsUpdated: Korrektoren erfolgreich aktualisiert diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 42c21d62a..2a3a2b89a 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -724,7 +724,9 @@ postCorrectionsUploadR = do , formEncoding = uploadEncoding } - defaultLayout + + defaultLayout $ do + let uploadInstruction = $(i18nWidgetFile "corrections-upload-instructions") $(widgetFile "corrections-upload") getCorrectionsCreateR, postCorrectionsCreateR :: Handler Html diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index cc5bc7718..39b2effd9 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -738,11 +738,11 @@ correctorForm shid = do let corrColonnade = mconcat - [ headed (Yesod.textCell $ mr MsgCorrector) $ \CorrectorForm{..} -> Yesod.textCell cfUserName - , headed (Yesod.textCell $ mr MsgCorState) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewState - , headed (Yesod.textCell $ mr MsgCorByTut) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewByTut + [ headed (Yesod.textCell $ mr MsgCorrector) $ \CorrectorForm{..} -> Yesod.textCell cfUserName + , headed (Yesod.textCell $ mr MsgCorState) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewState + , headed (Yesod.textCell $ mr MsgCorByTut) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewByTut , headed (Yesod.textCell $ mr MsgCorProportion) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewProp - , headed (Yesod.textCell $ mr MsgDeleteRow) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewDel + , headed (Yesod.textCell $ mr MsgDeleteRow) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewDel ] corrResults | FormSuccess (Just es) <- addTutRes @@ -804,3 +804,4 @@ getSCorrR tid ssh csh shn = do { formAction = Just . SomeRoute $ CSheetR tid ssh csh shn SCorrR , formEncoding = formEnctype } + diff --git a/templates/corrections-upload-instructions/de.hamlet b/templates/corrections-upload-instructions/de.hamlet new file mode 100644 index 000000000..0a04c6c4f --- /dev/null +++ b/templates/corrections-upload-instructions/de.hamlet @@ -0,0 +1,22 @@ +
+

+ Das Hochladen einer Korrekturen markiert die entsprechende + Abgabe automatisch als "korrigiert", falls Ihnen die Abgabe zugeteilt gewesen war. +

+ Lädt jedoch ein Assistent Korrekturen hoch, welche anderen Korrektoren + oder noch nicht zugeteilt wurden, so werden diese Abgaben noch nicht als "korrigiert" markiert. +

+ Es ist geplant, dass die Bewertungsdatei in Zukunft ein eigenes Feld enthält, + in dem Korrektoren angeben können, ob die Korrektur abgeschlossen ist oder nicht. +

+ Im Gegensatz zu UniWorX enthalten die heruntergeladenen Abgaben immer den + aktuellen Stand der Bewertung. Dies betrifft ggf. auch geänderte Dateien! + +

+

+ Bei der Korrektur können Dateien verändert, hinzugefügt und gelöscht werden. + Die Abgebenden werden entsprechend informiert, sobald die Abgabe als "korrigiert" markiert wurde. +

+ Temporäre Dateien einer eventuellen Vorkorrektur müssen also durch das Hochladen der + Korrekturen des letzten Korrektors gelöscht werden, falls diese den Abgabenden + nicht zur Verfügung gestellt werden sollen. diff --git a/templates/corrections-upload.hamlet b/templates/corrections-upload.hamlet index 5a7ac5710..a479c6257 100644 --- a/templates/corrections-upload.hamlet +++ b/templates/corrections-upload.hamlet @@ -1 +1,4 @@ -^{uploadForm} +

+ ^{uploadInstruction} +
+ ^{uploadForm}