Merge branch '544-tutoriumsdaten-bei-teilnehmerliste' into 'master'

Resolve "Tutoriumsdaten bei Teilnehmerliste"

Closes #544

See merge request uni2work/uni2work!58

src/Handler/Tutorial/Users.hs

@@ -67,6 +67,12 @@ postTUsersR tid ssh csh tutn = do
           ]
         addMessageI Success $ MsgTutorialUsersDeregistered nrDel
         redirect $ CTutorialR tid ssh csh tutn TUsersR
+  
+  tutors <- runDB $
+    E.select $ E.from $ \(tutor `E.InnerJoin` user) -> do
+      E.on $ tutor E.^. TutorUser E.==. user E.^. UserId
+      E.where_ $ tutor E.^. TutorTutorial E.==. E.val tutid
+      return user
 
   let heading = prependCourseTitle tid ssh csh $ CI.original tutorialName
   siteLayoutMsg heading $ do

templates/tutorial-participants.hamlet

@@ -1,2 +1,13 @@
 $newline never
+<section>
+  <dl .deflist>
+    <dt .deflist__dt>_{MsgTableTutorialTime}
+    <dd .deflist__dd>
+      ^{occurrencesWidget tutorialTime}
+    <dt .deflist__dt>_{MsgTableTutorialTutors}
+    <dd .deflist__dd>
+      <ul>
+        $forall (Entity _ User{userDisplayName, userDisplayEmail, userSurname}) <- tutors
+          <li>
+            ^{nameEmailWidget userDisplayEmail userDisplayName userSurname}
 ^{participantTable}