diff --git a/src/Handler/Course/ParticipantInvite.hs b/src/Handler/Course/ParticipantInvite.hs index 93abaedc7..89af84835 100644 --- a/src/Handler/Course/ParticipantInvite.hs +++ b/src/Handler/Course/ParticipantInvite.hs @@ -266,7 +266,7 @@ upsertNewTutorial cid tutorialName = do Entity tutId _ <- runDB $ upsert Tutorial { tutorialCourse = cid - , tutorialType = CI.mk mempty -- TODO: remove type? unneeded? + , tutorialType = CI.mk "Schulung" , tutorialCapacity = Nothing , tutorialRoom = Nothing , tutorialRoomHidden = False @@ -280,6 +280,7 @@ upsertNewTutorial cid tutorialName = do , .. } [ TutorialName =. tutorialName + , TutorialType =. CI.mk "Schulung" , TutorialLastChanged =. now ] return tutId