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

chore(audit): audit assign submissions to corrector

Browse Source
This commit is contained in:
Sarah Vaupel 2019-08-29 11:40:16 +02:00
parent e2fb007551
commit 6aac0aac65
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Audit/Types.hs
View File

@ -48,6 +48,10 @@ data Transaction
, transactionUser :: UserId , transactionUser :: UserId
, transactionCourseApplication :: CourseApplicationId , transactionCourseApplication :: CourseApplicationId
} }
| TransactionSubmissionsCorrectorAssigned
{ transactionSubmissions :: [SubmissionId]
, transactionUser :: UserId
}
| TransactionSubmissionCorrectorUpdated | TransactionSubmissionCorrectorUpdated
{ transactionSubmission :: SubmissionId { transactionSubmission :: SubmissionId
, transactionMbUser :: Maybe UserId , transactionMbUser :: Maybe UserId

4
src/Handler/Corrections.hs
View File

@ -459,11 +459,13 @@ correctionsR whereClause displayColumns dbtFilterUI psValidator actions = do
content = Right $(widgetFile "messages/submissionsAssignUnauthorized") content = Right $(widgetFile "messages/submissionsAssignUnauthorized")
addMessageModal Warning trigger content addMessageModal Warning trigger content
unless (null unassignedAuth) $ do unless (null unassignedAuth) $ do
num <- updateWhereCount [SubmissionId <-. Set.toList unassignedAuth] let sIds = Set.toList unassignedAuth
num <- updateWhereCount [SubmissionId <-. sIds]
[ SubmissionRatingBy =. Just uid [ SubmissionRatingBy =. Just uid
, SubmissionRatingAssigned =. Just now -- save, since only applies to unassigned , SubmissionRatingAssigned =. Just now -- save, since only applies to unassigned
] ]
addMessageI Success $ MsgUpdatedAssignedCorrectorSingle num addMessageI Success $ MsgUpdatedAssignedCorrectorSingle num
audit $ TransactionSubmissionsCorrectorAssigned sIds uid
(E.Value selfCorrectors:_) <- E.select . E.from $ \(submission `E.InnerJoin` subuser) -> do (E.Value selfCorrectors:_) <- E.select . E.from $ \(submission `E.InnerJoin` subuser) -> do
E.on $ submission E.^. SubmissionId E.==. subuser E.^. SubmissionUserSubmission E.on $ submission E.^. SubmissionId E.==. subuser E.^. SubmissionUserSubmission
E.where_ $ submission E.^. SubmissionId `E.in_` E.valList subs E.where_ $ submission E.^. SubmissionId `E.in_` E.valList subs