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

fix(submissions): fix users being deleted for other submissions

Browse Source
This commit is contained in:
Gregor Kleen 2019-11-21 16:17:54 +01:00
parent 2d4ccd6933
commit 2462c68f49
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Submission.hs
View File

@ -486,7 +486,7 @@ submissionHelper tid ssh csh shn mcid = do
| otherwise -> case change of | otherwise -> case change of
Left subEmail -> deleteInvitation @SubmissionUser smid subEmail Left subEmail -> deleteInvitation @SubmissionUser smid subEmail
Right subUid -> do Right subUid -> do
deleteWhere [SubmissionUserUser ==. subUid] deleteBy $ UniqueSubmissionUser subUid smid
audit $ TransactionSubmissionUserDelete smid subUid audit $ TransactionSubmissionUserDelete smid subUid
addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated