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

feat(eeusersr): audit external exam result result edit

Browse Source
This commit is contained in:
Sarah Vaupel 2020-03-03 16:40:15 +01:00
parent baa3fd82e1
commit 0d54757d16
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Handler/ExamOffice/ExternalExam.hs
View File

@ -37,12 +37,19 @@ postEEGradesR tid ssh coursen examn = do
redirect $ EExamR tid ssh coursen examn EEGradesR redirect $ EExamR tid ssh coursen examn EEGradesR
(ExternalExamUserEditResultData examResult, selectedResults) -> do (ExternalExamUserEditResultData examResult, selectedResults) -> do
nrEdited <- do nrEdited <- fmap getSum . flip foldMapM selectedResults $ \selectedResult -> do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
updateWhereCount [ ExternalExamResultId <-. Set.toList selectedResults ] mExtExamRes <- get selectedResult
nrEdit <- updateWhereCount
[ ExternalExamResultId ==. selectedResult ]
[ ExternalExamResultResult =. examResult [ ExternalExamResultResult =. examResult
, ExternalExamResultLastChanged =. now , ExternalExamResultLastChanged =. now
] ]
if
| Just ExternalExamResult{..} <- mExtExamRes -> do
forM_ [1..nrEdit] $ const $ audit $ TransactionExternalExamResultEdit externalExamResultExam externalExamResultUser
return $ Sum nrEdit
| otherwise -> return mempty
return . Just $ do return . Just $ do
addMessageI Success $ MsgExternalExamResultEdited nrEdited addMessageI Success $ MsgExternalExamResultEdited nrEdited
redirect $ EExamR tid ssh coursen examn EEGradesR redirect $ EExamR tid ssh coursen examn EEGradesR