Hinweise zum Korrektur-Upload

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

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

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 MsgCorrector)     $ \CorrectorForm{..} -> Yesod.textCell cfUserName
-      , headed (Yesod.textCell $ mr MsgCorState) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewState
+      , headed (Yesod.textCell $ mr MsgCorState)      $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewState
-      , headed (Yesod.textCell $ mr MsgCorByTut) $ \CorrectorForm{..} -> Yesod.cell $ fvInput cfViewByTut
+      , 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
       }
+

templates/corrections-upload-instructions/de.hamlet

@@ -0,0 +1,22 @@
+<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!
+
+<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.
+  <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.

templates/corrections-upload.hamlet

@@ -1 +1,4 @@
-^{uploadForm}
+<section>
+  ^{uploadInstruction}
+<section>
+  ^{uploadForm}