fix(eecorrectr): use default time

2020-08-12 11:58:15 +02:00 · 2020-08-12 11:58:15 +02:00 · 33691556ab
commit 33691556ab
parent de02895ed0
1 changed files with 3 additions and 2 deletions
--- a/src/Handler/ExternalExam/Correct.hs
+++ b/src/Handler/ExternalExam/Correct.hs
@ -112,15 +112,16 @@ postEECorrectR tid ssh coursen examn = do
                mOld = externalExamResultResult . entityVal <$> mOldResult
              in if
                | ciqGrade' /= mOld -> do
+                  let resultTime = maybe now id externalExamDefaultTime  -- TODO add option to override default?
                  newResult <- upsert ExternalExamResult
                    { externalExamResultExam        = eeId
                    , externalExamResultUser        = uid
                    , externalExamResultResult      = resultGrade
-                    , externalExamResultTime        = now  -- TODO add and use utcTimeField
+                    , externalExamResultTime        = resultTime
                    , externalExamResultLastChanged = now
                    }
                    [ ExternalExamResultResult      =. resultGrade
-                    , ExternalExamResultTime        =. now  -- TODO add and use utcTimeField
+                    , ExternalExamResultTime        =. resultTime
                    , ExternalExamResultLastChanged =. now
                    ]
                  audit $ TransactionExternalExamResultEdit eeId uid