fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hinweise zum Korrektur-Upload

Browse Source
This commit is contained in:
Steffen Jost 2019-04-16 17:56:31 +02:00
parent 5021cca59c
commit 6a85cbdf38
5 changed files with 35 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/de.msg
View File

@ -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

4
src/Handler/Corrections.hs
View File

@ -724,7 +724,9 @@ postCorrectionsUploadR = do
, formEncoding = uploadEncoding
}
defaultLayout
defaultLayout $ do
let uploadInstruction = $(i18nWidgetFile "corrections-upload-instructions")
$(widgetFile "corrections-upload")
getCorrectionsCreateR, postCorrectionsCreateR :: Handler Html

9
src/Handler/Sheet.hs
View File

@ -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
}

22
templates/corrections-upload-instructions/de.hamlet Normal file
View File

@ -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.

5
templates/corrections-upload.hamlet
View File

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