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

fix(course-users): insertUnique and only count and audit true inserts

Browse Source
This commit is contained in:
Sarah Vaupel 2020-02-10 14:13:31 +01:00 committed by Gregor Kleen
parent b8acc9b5da
commit 1325ff2a95
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/Course/Users.hs
View File

@ -532,14 +532,17 @@ postCUsersR tid ssh csh = do
Sum nrReg <- fmap mconcat . runDB . forM (Set.toList selectedUsers) $ \uid -> do Sum nrReg <- fmap mconcat . runDB . forM (Set.toList selectedUsers) $ \uid -> do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
-- TODO allow occurence -- TODO allow occurence
insert_ ExamRegistration mExamReg <- insertUnique ExamRegistration
{ examRegistrationExam = registerExam { examRegistrationExam = registerExam
, examRegistrationUser = uid , examRegistrationUser = uid
, examRegistrationOccurrence = Nothing , examRegistrationOccurrence = Nothing
, examRegistrationTime = now , examRegistrationTime = now
} }
audit $ TransactionExamRegister registerExam uid if isJust mExamReg
return 1 then do
audit $ TransactionExamRegister registerExam uid
return 1
else return 0
addMessageI Success $ MsgCourseUsersExamRegistered nrReg addMessageI Success $ MsgCourseUsersExamRegistered nrReg
redirect $ CourseR tid ssh csh CUsersR redirect $ CourseR tid ssh csh CUsersR
let headingLong = [whamlet|_{MsgMenuCourseMembers} #{courseName course} #{tid}|] let headingLong = [whamlet|_{MsgMenuCourseMembers} #{courseName course} #{tid}|]