From 3944ce02615f8f4d3ec6a14ae4beaceb324c6104 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 23 May 2020 12:12:05 +0200 Subject: [PATCH] feat(sheets): better explain rating-done --- messages/uniworx/de-de-formal.msg | 3 +- messages/uniworx/en-eu.msg | 3 +- package.yaml | 2 +- src/Handler/Corrections.hs | 2 +- src/Handler/Utils/Rating.hs | 2 +- .../de-de-formal.hamlet | 66 +++++++++++++------ .../en-eu.hamlet | 50 ++++++++++---- 7 files changed, 91 insertions(+), 37 deletions(-) diff --git a/messages/uniworx/de-de-formal.msg b/messages/uniworx/de-de-formal.msg index 16d99da8e..6a258b1dc 100644 --- a/messages/uniworx/de-de-formal.msg +++ b/messages/uniworx/de-de-formal.msg @@ -651,7 +651,8 @@ RatingComment: Kommentar SubmissionUsers: Studenten Rating: Korrektur RatingPoints: Punkte -RatingDone: Bewertung sichtbar +RatingDone: Bewertung abgeschlossen +RatingDoneTip: Das Korrekturergebnis ist nur dann für die Abgebenden sichtbar und kann gegen etwaige Klausur-Bonuspunkte verrechnet werden, wenn die Bewertung abgeschlossen ist. RatingPercent: Erreicht RatingFiles: Korrigierte Dateien PointsNotPositive: Punktzahl darf nicht negativ sein diff --git a/messages/uniworx/en-eu.msg b/messages/uniworx/en-eu.msg index f28320748..f4d2e078c 100644 --- a/messages/uniworx/en-eu.msg +++ b/messages/uniworx/en-eu.msg @@ -649,7 +649,8 @@ RatingComment: Comment SubmissionUsers: Submittors Rating: Marking RatingPoints: Points -RatingDone: Rating visible +RatingDone: Rating finished +RatingDoneTip: The rating is only visible to the submittors and considered for any exam bonuses if it is finished. RatingPercent: Achieved RatingFiles: Marked files PointsNotPositive: Points may not be negative diff --git a/package.yaml b/package.yaml index 1216b1e10..7a2323904 100644 --- a/package.yaml +++ b/package.yaml @@ -270,7 +270,7 @@ executables: main: Load.hs ghc-options: - -main-is Load - source-dirs: test + source-dirs: load dependencies: - uniworx - normaldistribution diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 2ed001ffa..84cbbe5fa 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -810,7 +810,7 @@ postCorrectionR tid ssh csh shn cid = do (Just submissionRatingPoints) ((corrResult, corrForm'), corrEncoding) <- runFormPost . identifyForm FIDcorrection . renderAForm FormStandard $ (,,) - <$> areq checkBoxField (fslI MsgRatingDone) (Just $ submissionRatingDone Submission{..}) + <$> areq checkBoxField (fslI MsgRatingDone & setTooltip MsgRatingDoneTip) (Just $ submissionRatingDone Submission{..}) <*> pointsForm <*> (((\t -> t <$ guard (not $ null t)) =<<) . fmap (Text.strip . unTextarea) <$> aopt textareaField (fslI MsgRatingComment) (Just $ Textarea <$> submissionRatingComment)) let corrForm = wrapForm' BtnSave corrForm' def diff --git a/src/Handler/Utils/Rating.hs b/src/Handler/Utils/Rating.hs index a11682c92..26652c707 100644 --- a/src/Handler/Utils/Rating.hs +++ b/src/Handler/Utils/Rating.hs @@ -118,7 +118,7 @@ formatRating cID Rating{ ratingValues = Rating'{..}, ..} = let , pure $ "Abgabe-Id:" <+> pretty (Text.unpack $ toPathPiece cID) , guardOn (hasn't (_grading . _PassAlways) ratingSheetType) "=============================================" , guardOn (hasn't (_grading . _PassAlways) ratingSheetType) $ "Bewertung:" <+> pretty ratingPoints - , pure $ "=========== Beginn der Kommentare ===========" + , pure "=========== Beginn der Kommentare ===========" , pure $ pretty ratingComment ] in Lazy.Text.encodeUtf8 . (<> "\n") $ displayT doc diff --git a/templates/i18n/corrections-upload-instructions/de-de-formal.hamlet b/templates/i18n/corrections-upload-instructions/de-de-formal.hamlet index 44e5deb4d..1b5afcbd4 100644 --- a/templates/i18n/corrections-upload-instructions/de-de-formal.hamlet +++ b/templates/i18n/corrections-upload-instructions/de-de-formal.hamlet @@ -1,26 +1,54 @@ -
-

- 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! +$newline never

- 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. + + Das Hochladen einer Korrekturen markiert die entsprechende Abgabe # + automatisch als "korrigiert" (Bewertung abgeschlossen), falls # + Ihnen die Abgabe zugeteilt gewesen war. +

- 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. + + Lädt jedoch ein Assistent Korrekturen hoch, welche anderen # + Korrektoren oder noch nicht zugeteilt wurden, so werden diese # + Abgaben noch nicht als "korrigiert" markiert. + +

+ + _{MsgRatingDoneTip} + +

+ + 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. $maybe maxUpload <- maxUploadMB

- Das Limit für die Dateigröße beträgt momentan #{textBytes maxUpload} \ No newline at end of file + + Das Limit für die Größe des Uploads beträgt momentan # + #{textBytes maxUpload} diff --git a/templates/i18n/corrections-upload-instructions/en-eu.hamlet b/templates/i18n/corrections-upload-instructions/en-eu.hamlet index 6a7105ac3..a6644870e 100644 --- a/templates/i18n/corrections-upload-instructions/en-eu.hamlet +++ b/templates/i18n/corrections-upload-instructions/en-eu.hamlet @@ -1,26 +1,50 @@ +$newline never +

- Uploading a correction automatically marks it finished (i.e. visible to the - students) iff you were assigned that correction. + + Uploading a correction automatically marks it finished iff you # + were assigned that correction. +

- If an administrator that was not assigned the correction uploads it, it will - not be marked finished. + + If an administrator that was not assigned the correction uploads # + it, it will not be marked finished. +

- It is expected that rating files will, in the future, contain a field to - mark the correction as finished or not. + + _{MsgRatingDoneTip} +

- Contrary to UniWorX downloaded submissions always reflect the current state - of the correction. + + It is expected that rating files will, in the future, contain a # + field to mark the correction as finished or not. + +

+ + Contrary to UniWorX downloaded submissions always reflect the # + current state of the correction. + +
+ This extends to files changed during previous corrections.

- While marking a correction files may be changed, added, and deleted. - These changes will be visible to the submittors as soon as the correction is - marked finished. + + While marking a correction files may be changed, added, and # + deleted. + +
+ + These changes will be visible to the submittors as soon as the # + correction is marked finished. +

- Temporary files left by previous corrections should thus be deleted by the - last corrector if they should not be accessable to submittors. + + Temporary files left by previous corrections should thus be # + deleted by the last corrector if they should not be accessable to # + submittors. $maybe maxUpload <- maxUploadMB