chore(users-add): add missing cases of participant result messages

messages/uniworx/categories/courses/courses/de-de-formal.msg

@@ -118,6 +118,7 @@ CourseParticipantsRegisterNoneGiven: Es wurden keine anzumeldenden Personen ange
 CourseParticipantsInvited n@Int: #{n} #{pluralDE n "Einladung" "Einladungen"} per E-Mail verschickt
 CourseParticipantsAddedByAvs n@Int: #{n} AVS-Nutzer erfolgreich angemeldet (TODO)
 CourseParticipantsAlreadyRegistered n@Int: #{n} #{pluralDE n "Teinehmer:in" "Teilnehmer:innen"} #{pluralDE n "ist" "sind"} bereits angemeldet
+CourseParticipantsAlreadyTutorialMember n@Int: #{n} #{pluralDE n "Teinehmer:in" "Teilnehmer:innen"} #{pluralDE n "ist" "sind"} bereits in dieser Übungsgruppe angemeldet
 CourseParticipantsRegistered n@Int: #{n} #{pluralDE n "Teinehmer:in" "Teilnehmer:innen"} erfolgreich angemeldet
 CourseApplicationText: Text-Bewerbung
 CourseApplicationFollowInstructions: Beachten Sie die Anweisungen zur Bewerbung!

messages/uniworx/categories/courses/courses/en-eu.msg

@@ -118,6 +118,7 @@ CourseParticipantsRegisterNoneGiven: No persons given to register!
 CourseParticipantsInvited n: #{n} #{pluralEN n "invitation" "invitations"} sent via email
 CourseParticipantsAddedByAvs n: #{n} AVS users successfully registered (TODO)
 CourseParticipantsAlreadyRegistered n: #{n} #{pluralEN n "participant is" "participants are"} already enrolled
+CourseParticipantsAlreadyTutorialMember n: #{n} #{pluralEN n "participant is" "participants are"} already registered for this tutorial
 CourseParticipantsRegistered n: Successfully registered #{n} #{pluralEN n "participant" "participants"}
 CourseApplicationText: Application text
 CourseApplicationFollowInstructions: Please follow the instructions for applications!

src/Handler/Course/ParticipantInvite.hs

@@ -90,14 +90,17 @@ addParticipantsResultMessages :: (MonadHandler m, HandlerSite m ~ UniWorX)
                               => AddParticipantsResult
                               -> ReaderT (YesodPersistBackend UniWorX) m [Message]
 addParticipantsResultMessages AddParticipantsResult{..} = execWriterT $ do
-  aurAlreadyRegistered' <-
-    fmap sort (lift . mapM (fmap userEmail . getJust) $ Set.toList aurAlreadyRegistered)
+  aurAlreadyRegistered'     <- fmap sort (lift . mapM getJust $ Set.toList aurAlreadyRegistered)
+  aurAlreadyTutorialMember' <- fmap sort (lift . mapM getJust $ Set.toList aurAlreadyTutorialMember)
 
   unless (null aurAlreadyRegistered) $ do
     let modalTrigger = [whamlet|_{MsgCourseParticipantsAlreadyRegistered (length aurAlreadyRegistered)}|]
         modalContent = $(widgetFile "messages/courseInvitationAlreadyRegistered")
     tell . pure <=< messageWidget Info $ msgModal modalTrigger (Right modalContent)
-  -- TODO: aurAlreadyTutorialMember
+  unless (null aurAlreadyTutorialMember) $ do
+    let modalTrigger = [whamlet|_{MsgCourseParticipantsAlreadyTutorialMember (length aurAlreadyTutorialMember)}|]
+        modalContent = $(widgetFile "messages/courseInvitationAlreadyTutorialMember")
+    tell . pure <=< messageWidget Info $ msgModal modalTrigger (Right modalContent)
 
   unless (null aurRegisterSuccess) $
     tell . pure <=< messageI Success . MsgCourseParticipantsRegistered $ length aurRegisterSuccess

templates/messages/courseInvitationAlreadyRegistered.hamlet

@@ -1,12 +1,12 @@
 $newline never
 
-$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
+$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
 $#
 $# SPDX-License-Identifier: AGPL-3.0-or-later
 
 <h2>
   _{MsgCourseParticipantsAlreadyRegistered (length aurAlreadyRegistered)}
 <ul>
-  $forall email <- aurAlreadyRegistered'
-    <li .email>
-      #{email}
+  $forall registeredUser <- aurAlreadyRegistered'
+    <li>
+      ^{userWidget registeredUser}

templates/messages/courseInvitationAlreadyTutorialMember.hamlet

@@ -0,0 +1,12 @@
+$newline never
+
+$# SPDX-FileCopyrightText: 2022 Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
+$#
+$# SPDX-License-Identifier: AGPL-3.0-or-later
+
+<h2>
+  _{MsgCourseParticipantsAlreadyTutorialMember (length aurAlreadyTutorialMember)}
+<ul>
+  $forall registeredUser <- aurAlreadyTutorialMember'
+    <li>
+      ^{userWidget registeredUser}