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

Corrector placeholder

Browse Source
This commit is contained in:
Gregor Kleen 2018-05-29 17:53:50 +02:00
parent cbc145a56c
commit 0644dae938
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
messages/de.msg
View File

@ -59,4 +59,5 @@ CorByTut: Nach Tutorium
CorProportion: Anteil CorProportion: Anteil
DeleteRow: Zeile entfernen DeleteRow: Zeile entfernen
ProportionNegative: Anteile dürfen nicht negativ sein ProportionNegative: Anteile dürfen nicht negativ sein
CorrectorsUpdated: Korrektoren erfolgreich aktualisiert CorrectorsUpdated: Korrektoren erfolgreich aktualisiert
CorrectorsPlaceholder: Korrektoren...

4
src/Handler/Sheet.hs
View File

@ -468,9 +468,9 @@ correctorForm shid = do
E.on $ sheetCorrector E.^. SheetCorrectorUser E.==. user E.^. UserId E.on $ sheetCorrector E.^. SheetCorrectorUser E.==. user E.^. UserId
E.where_ $ lecturer E.^. LecturerUser E.==. E.val userId E.where_ $ lecturer E.^. LecturerUser E.==. E.val userId
return $ user E.^. UserEmail return $ user E.^. UserEmail
toWidget [hamlet| [whamlet|
$newline never $newline never
<input id=#{theId} name=#{name} list=#{listIdent} *{attrs} type=email multiple :isReq:required value=""> <input id=#{theId} name=#{name} list=#{listIdent} *{attrs} type=email multiple :isReq:required value="" placeholder=_{MsgCorrectorsPlaceholder}>
<datalist id=#{listIdent}> <datalist id=#{listIdent}>
$forall E.Value prev <- previousCorrectors $forall E.Value prev <- previousCorrectors
<option value=#{prev}> <option value=#{prev}>