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

This commit is contained in:
Sarah Vaupel 2022-12-12 15:26:15 +01:00
parent 2c13defecd
commit 69de44893c

View File

@ -266,7 +266,7 @@ upsertNewTutorial cid tutorialName = do
Entity tutId _ <- runDB $ upsert Entity tutId _ <- runDB $ upsert
Tutorial Tutorial
{ tutorialCourse = cid { tutorialCourse = cid
, tutorialType = CI.mk mempty -- TODO: remove type? unneeded? , tutorialType = CI.mk "Schulung"
, tutorialCapacity = Nothing , tutorialCapacity = Nothing
, tutorialRoom = Nothing , tutorialRoom = Nothing
, tutorialRoomHidden = False , tutorialRoomHidden = False
@ -280,6 +280,7 @@ upsertNewTutorial cid tutorialName = do
, .. , ..
} }
[ TutorialName =. tutorialName [ TutorialName =. tutorialName
, TutorialType =. CI.mk "Schulung"
, TutorialLastChanged =. now , TutorialLastChanged =. now
] ]
return tutId return tutId