diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 20c1f5546..72472302a 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -965,6 +965,7 @@ postCorrectionsCreateR = do { submissionUserUser = sheetPseudonymUser , submissionUserSubmission = subId } + audit $ TransactionSubmissionEdit subId uid when (length spGroup > 1) $ addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc when allDone $