feat(course-users): set new tutorials to Schulung

2022-12-12 15:26:15 +01:00 · 2022-12-12 15:26:15 +01:00 · 69de44893c
commit 69de44893c
parent 2c13defecd
1 changed files with 2 additions and 1 deletions
--- 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