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

fix: submission user notification recipients for pseudonym subs

Browse Source
This commit is contained in:
Gregor Kleen 2020-01-28 16:15:18 +01:00
parent d0befa9ce2
commit a7b7bdbea7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Corrections.hs
View File

@ -953,7 +953,7 @@ postCorrectionsCreateR = do
, submissionUserSubmission = subId , submissionUserSubmission = subId
} }
forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do
hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated uid subId hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated sheetPseudonymUser subId
audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
when (genericLength spGroup > maxSize) $ when (genericLength spGroup > maxSize) $
addMessageI Warning $ MsgSheetGroupTooLarge sheetGroupDesc addMessageI Warning $ MsgSheetGroupTooLarge sheetGroupDesc
@ -998,7 +998,7 @@ postCorrectionsCreateR = do
, submissionUserSubmission = subId , submissionUserSubmission = subId
} }
forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> do
hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated uid subId hoist (hoist lift) . queueDBJob . JobQueueNotification $ NotificationSubmissionUserCreated sheetPseudonymUser subId
audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
when (length spGroup > 1) $ when (length spGroup > 1) $
addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc