diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs index f8215a0d9..cc34b1d6a 100644 --- a/src/Handler/Tutorial/Users.hs +++ b/src/Handler/Tutorial/Users.hs @@ -55,7 +55,7 @@ postTUsersR tid ssh csh tutn = do cid <- getKeyBy404 $ TermSchoolCourseShort tid ssh csh table <- makeCourseUserTable cid (Map.fromList $ map (id &&& pure) universeF) isInTut colChoices psValidator (Just csvColChoices) return (tut, table) - + formResult participantRes $ \case (TutorialUserSendMail, selectedUsers) -> do cids <- traverse encrypt $ Set.toList selectedUsers :: Handler [CryptoUUIDUser] diff --git a/templates/tutorial-participants.hamlet b/templates/tutorial-participants.hamlet index 1c6999f09..697d9f6a7 100644 --- a/templates/tutorial-participants.hamlet +++ b/templates/tutorial-participants.hamlet @@ -1,2 +1,8 @@ $newline never +
+
+
_{MsgTableTutorialTime} +
+ ^{occurrencesWidget tutorialTime} +
_{MsgTableTutorialTutors} ^{participantTable}