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

chore(tutorial): WIP towards tutorial templates, part 2

Browse Source
This commit is contained in:
Steffen Jost 2023-05-24 13:59:05 +00:00
parent 5400c32477
commit 314e661108
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Handler/Course/ParticipantInvite.hs
View File

@ -78,7 +78,7 @@ data CourseRegisterActionData
| CourseRegisterActionAddTutorialMemberData
{ crActIdent :: UserSearchKey
, crActUser :: (UserId, User)
, crActTutorial :: TutorialName
, crActTutorial :: (Maybe TutorialName, Maybe TutorialType, Maybe Day)
}
-- | CourseRegisterActionUnknownPersonData -- pseudo-action; just for display
-- { crActUnknownPersonIdent :: Text
@ -168,8 +168,8 @@ postTAddUserR tid ssh csh tut = do
tutActs = Set.filter (is _CourseRegisterActionAddTutorialMemberData) confirmedActs
actTutorial = crActTutorial <$> Set.lookupMin tutActs -- tutorial ident must be the same for every added member!
registeredUsers <- registerUsers cid users
forM_ actTutorial $ \tutName -> do
tutId <- upsertNewTutorial cid tutName --TODO
forM_ actTutorial $ \(tutName,tutType,tutDay) -> do
tutId <- upsertNewTutorial cid (fromMaybe "TODO" tutName) tutType tutDay
registerTutorialMembers tutId registeredUsers
if
@ -323,7 +323,7 @@ upsertNewTutorial cid newTutorialName newTutorialType anchorDay = runDB $ do
, tutorialDeregisterUntil = mvTime tutorialDeregisterUntil
, tutorialLastChanged = now
, ..
} [] -- update cannot happen due to previous case
} [] -- update cannot happen due to previous case
audit $ TransactionTutorialEdit tutId
return tutId
_ -> do
@ -343,8 +343,7 @@ upsertNewTutorial cid newTutorialName newTutorialType anchorDay = runDB $ do
, tutorialLastChanged = now
, tutorialTutorControlled = False
, tutorialFirstDay = anchorDay
}
[ ] -- update cannot happen due to previous cases
} [] -- update cannot happen due to previous cases
audit $ TransactionTutorialEdit tutId
return tutId