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

chore(audit): audit submission edit

Browse Source
This commit is contained in:
Sarah Vaupel 2019-08-29 12:56:44 +02:00
parent 9136d9a352
commit c5f2e5e72a
2 changed files with 5 additions and 0 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
} }
| TransactionSubmissionEdit
{ transactionSubmission :: SubmissionId
, transactionUser :: UserId
}
| TransactionSubmissionCorrectorAssigned | TransactionSubmissionCorrectorAssigned
{ transactionSubmission :: SubmissionId { transactionSubmission :: SubmissionId
, transactionMbUser :: Maybe UserId , transactionMbUser :: Maybe UserId

1
src/Handler/Corrections.hs
View File

@ -948,6 +948,7 @@ postCorrectionsCreateR = do
{ submissionUserUser = sheetUser { submissionUserUser = sheetUser
, submissionUserSubmission = subId , submissionUserSubmission = subId
} }
audit $ TransactionSubmissionEdit subId uid
when (null groups) $ when (null groups) $
addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
| length groups < 2 | length groups < 2