From 39978574feff5c1a761f84ab4e040dd53cc7f739 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 13 Aug 2019 13:25:13 +0200 Subject: [PATCH] fix(course-deregister): only delete relevant users exam results --- src/Handler/Course/Register.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs index 36a82ac97..dbaaac8df 100644 --- a/src/Handler/Course/Register.hs +++ b/src/Handler/Course/Register.hs @@ -224,6 +224,7 @@ postCRegisterR tid ssh csh = do examRegistrations <- E.select . E.from $ \(examRegistration `E.InnerJoin` exam) -> do E.on $ examRegistration E.^. ExamRegistrationExam E.==. exam E.^. ExamId E.where_ $ exam E.^. ExamCourse E.==. E.val cid + E.&&. examRegistration E.^. ExamRegistrationUser E.==. E.val uid return examRegistration forM_ examRegistrations $ \(Entity erId ExamRegistration{..}) -> do delete erId @@ -232,6 +233,7 @@ postCRegisterR tid ssh csh = do examResults <- E.select . E.from $ \(examResult `E.InnerJoin` exam) -> do E.on $ examResult E.^. ExamResultExam E.==. exam E.^. ExamId E.where_ $ exam E.^. ExamCourse E.==. E.val cid + E.&&. examResult E.^. ExamResultUser E.==. E.val uid return examResult forM_ examResults $ \(Entity erId ExamResult{..}) -> do delete erId