From a278cc5048a3c15c393cca86ea12b3ea095ae65c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 24 Jul 2019 11:29:32 +0200
Subject: [PATCH] fix(exam-csv): audit registrations/deregistrations

---
 src/Handler/Exam.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index e8c2b8ea4..ee7d96bed 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -1095,6 +1095,8 @@ postEUsersR tid ssh csh examn = do
                       , courseParticipantRegistration = now
                       , courseParticipantField = examUserCsvActCourseField
                       }
+                    User{userIdent} <- getJust examUserCsvActUser
+                    audit' $ TransactionExamRegister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
                     insert_ ExamRegistration
                       { examRegistrationExam = eid
                       , examRegistrationUser = examUserCsvActUser
@@ -1113,7 +1115,11 @@ postEUsersR tid ssh csh examn = do
                     update examUserCsvActRegistration [ ExamRegistrationOccurrence =. examUserCsvActOccurrence ]
                   ExamUserCsvSetCourseFieldData{..} ->
                     update examUserCsvActCourseParticipant [ CourseParticipantField =. examUserCsvActCourseField ]
-                  ExamUserCsvDeregisterData{..} -> delete examUserCsvActRegistration
+                  ExamUserCsvDeregisterData{..} -> do
+                    ExamRegistration{examRegistrationUser} <- getJust examUserCsvActRegistration
+                    User{userIdent} <- getJust examRegistrationUser
+                    audit' $ TransactionExamDeregister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
+                    delete examUserCsvActRegistration
                 return $ CExamR tid ssh csh examn EUsersR
             , dbtCsvRenderKey = \(registeredUserName -> registeredUserName') -> \case
                 ExamUserCsvCourseRegisterData{..} -> do