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

fix(eecorrectr): use default time

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-12 11:58:15 +02:00
parent de02895ed0
commit 33691556ab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/ExternalExam/Correct.hs
View File

@ -112,15 +112,16 @@ postEECorrectR tid ssh coursen examn = do
mOld = externalExamResultResult . entityVal <$> mOldResult mOld = externalExamResultResult . entityVal <$> mOldResult
in if in if
| ciqGrade' /= mOld -> do | ciqGrade' /= mOld -> do
let resultTime = maybe now id externalExamDefaultTime -- TODO add option to override default?
newResult <- upsert ExternalExamResult newResult <- upsert ExternalExamResult
{ externalExamResultExam = eeId { externalExamResultExam = eeId
, externalExamResultUser = uid , externalExamResultUser = uid
, externalExamResultResult = resultGrade , externalExamResultResult = resultGrade
, externalExamResultTime = now -- TODO add and use utcTimeField , externalExamResultTime = resultTime
, externalExamResultLastChanged = now , externalExamResultLastChanged = now
} }
[ ExternalExamResultResult =. resultGrade [ ExternalExamResultResult =. resultGrade
, ExternalExamResultTime =. now -- TODO add and use utcTimeField , ExternalExamResultTime =. resultTime
, ExternalExamResultLastChanged =. now , ExternalExamResultLastChanged =. now
] ]
audit $ TransactionExternalExamResultEdit eeId uid audit $ TransactionExternalExamResultEdit eeId uid