fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

feat(tutoriumsdaten): termin

Browse Source
This commit is contained in:
ros 2021-08-22 15:49:37 +02:00 committed by Sarah Vaupel
parent 0471b9a6a2
commit ebcb23429f
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Tutorial/Users.hs
View File

@ -55,7 +55,7 @@ postTUsersR tid ssh csh tutn = do
cid <- getKeyBy404 $ TermSchoolCourseShort tid ssh csh cid <- getKeyBy404 $ TermSchoolCourseShort tid ssh csh
table <- makeCourseUserTable cid (Map.fromList $ map (id &&& pure) universeF) isInTut colChoices psValidator (Just csvColChoices) table <- makeCourseUserTable cid (Map.fromList $ map (id &&& pure) universeF) isInTut colChoices psValidator (Just csvColChoices)
return (tut, table) return (tut, table)
formResult participantRes $ \case formResult participantRes $ \case
(TutorialUserSendMail, selectedUsers) -> do (TutorialUserSendMail, selectedUsers) -> do
cids <- traverse encrypt $ Set.toList selectedUsers :: Handler [CryptoUUIDUser] cids <- traverse encrypt $ Set.toList selectedUsers :: Handler [CryptoUUIDUser]

6
templates/tutorial-participants.hamlet
View File

@ -1,2 +1,8 @@
$newline never $newline never
<section>
<dl .deflist>
<dt .deflist__dt>_{MsgTableTutorialTime}
<dd .deflist__dd>
^{occurrencesWidget tutorialTime}
<dt .deflist__dt>_{MsgTableTutorialTutors}
^{participantTable} ^{participantTable}