feat(sheets): better explain rating-done

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

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

package.yaml

@@ -270,7 +270,7 @@ executables:
     main: Load.hs
     ghc-options:
       - -main-is Load
-    source-dirs: test
+    source-dirs: load
     dependencies:
       - uniworx
       - normaldistribution

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

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

templates/i18n/corrections-upload-instructions/de-de-formal.hamlet

@@ -1,26 +1,54 @@
-<section>
-  <p>
-    Das Hochladen einer Korrekturen markiert die entsprechende
-    Abgabe automatisch als "korrigiert", falls Ihnen die Abgabe zugeteilt gewesen war.
-  <p>
-    Lädt jedoch ein Assistent Korrekturen hoch, welche anderen Korrektoren
-    oder noch nicht zugeteilt wurden, so werden diese Abgaben noch nicht als "korrigiert" markiert.
-  <p>
-    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.
-  <p>
-    Im Gegensatz zu UniWorX enthalten die heruntergeladenen Abgaben immer den
-    aktuellen Stand der Bewertung. Dies betrifft ggf. auch geänderte Dateien!
+$newline never
 
 <section>
   <p>
-    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.
+
   <p>
-    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.
+
+  <p>
+
+    _{MsgRatingDoneTip}
+
+  <p>
+
+    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.
+
+  <p>
+
+    Im Gegensatz zu UniWorX enthalten die heruntergeladenen Abgaben #
+    immer den aktuellen Stand der Bewertung. Dies betrifft ggf. auch #
+    geänderte Dateien!
+
+<section>
+  <p>
+
+    Bei der Korrektur können Dateien verändert, hinzugefügt und #
+    gelöscht werden.
+
+    <br>
+
+    Die Abgebenden werden entsprechend informiert, sobald die Abgabe #
+    als "korrigiert" markiert wurde.
+
+  <p>
+
+    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
     <p>
-      Das Limit für die Dateigröße beträgt momentan #{textBytes maxUpload}
+
+      Das Limit für die Größe des Uploads beträgt momentan #
+      #{textBytes maxUpload}

templates/i18n/corrections-upload-instructions/en-eu.hamlet

@@ -1,26 +1,50 @@
+$newline never
+
 <section>
   <p>
-    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.
+
   <p>
-    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.
+
   <p>
-    It is expected that rating files will, in the future, contain a field to
-    mark the correction as finished or not.
+
+    _{MsgRatingDoneTip}
+
   <p>
-    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.
+
+  <p>
+
+    Contrary to UniWorX downloaded submissions always reflect the #
+    current state of the correction.
+  
+    <br>
+  
     This extends to files changed during previous corrections.
 
 <section>
   <p>
-    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.
+
+    <br>
+  
+    These changes will be visible to the submittors as soon as the #
+    correction is marked finished.
+
   <p>
-    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
     <p>