Address #360

messages/uniworx/de.msg

@@ -790,6 +790,7 @@ MenuCorrectionsGrade: Abgaben bewerten
 MenuAuthPreds: Authorisierungseinstellungen
 MenuTutorialDelete: Tutorium löschen
 MenuTutorialEdit: Tutorium editieren
+MenuTutorialComm: Mitteilung an Teilnehmer
 
 AuthPredsInfo: Um eigene Veranstaltungen aus Sicht der Teilnehmer anzusehen, können Veranstalter und Korrektoren hier die Prüfung ihrer erweiterten Berechtigungen temporär deaktivieren. Abgewählte Prädikate schlagen immer fehl. Abgewählte Prädikate werden also nicht geprüft um Zugriffe zu gewähren, welche andernfalls nicht erlaubt wären. Diese Einstellungen gelten nur temporär bis Ihre Sitzung abgelaufen ist, d.h. bis ihr Browser-Cookie abgelaufen ist. Durch Abwahl von Prädikaten kann man sich höchstens temporär aussperren.
 AuthPredsActive: Aktive Authorisierungsprädikate

src/Foundation.hs

@@ -2029,6 +2029,14 @@ pageActions (CTutorialR tid ssh csh tutn TEditR) =
   ]
 pageActions (CTutorialR tid ssh csh tutn TUsersR) =
   [ MenuItem
+      { menuItemType  = PageActionPrime
+      , menuItemLabel = MsgMenuTutorialComm
+      , menuItemIcon  = Nothing
+      , menuItemRoute = SomeRoute $ CTutorialR tid ssh csh tutn TCommR
+      , menuItemModal = False
+      , menuItemAccessCallback' = return True
+      }
+  , MenuItem
       { menuItemType  = PageActionPrime
       , menuItemLabel = MsgMenuTutorialEdit
       , menuItemIcon  = Nothing

src/Handler/Tutorial.hs

@@ -184,6 +184,7 @@ postTCommR tid ssh csh tutn = do
             E.where_ $ E.exists $ E.from $ \(sheet `E.InnerJoin` corrector) -> do
               E.on $ sheet E.^. SheetId E.==. corrector E.^. SheetCorrectorSheet
               E.where_ $ sheet E.^. SheetCourse E.==. E.val cid
+                   E.&&. corrector E.^. SheetCorrectorUser E.==. user E.^. UserId
             return user
         )
       , ( RGCourseTutors
@@ -191,6 +192,7 @@ postTCommR tid ssh csh tutn = do
             E.where_ $ E.exists $ E.from $ \(tutorial `E.InnerJoin` tutor) -> do
               E.on $ tutorial E.^. TutorialId E.==. tutor E.^. TutorTutorial
               E.where_ $ tutorial E.^. TutorialCourse E.==. E.val cid
+                   E.&&. tutor E.^. TutorUser E.==. user E.^. UserId
             return user
         )
       ]