chore: improve faq & results mail for allocations

messages/uniworx/misc/de-de-formal.msg

@@ -2673,6 +2673,7 @@ AllocationResultsTip: Die folgenden Informationen entsprechen dem aktuellen Stan
 AllocationResultsStudentTip: Unten aufgeführt sind alle Plätze, die Sie im Rahmen der genannten Zentralanmeldung erhalten haben und von denen Sie seit dem weder abgemeldet wurden, noch sich selbst abgemeldet haben. Plätze, über die Sie ggf. bereits informiert wurden, können also erneut aufgeführt sein.
 AllocationResultStudentRegistrationTip: Sie sind zu oben genanntem Kurs in Uni2work angemeldet.
 AllocationResultsStudentRegistrationTip: Sie sind zu den oben genannten Kursen in Uni2work angemeldet.
+AllocationResultsStudentConsultFaq n@Int: Falls Sie Fragen oder Anmerkungen haben, beachten Sie bitte auch die Informationen auf #{pluralDE n "der" "den"} folgenden #{pluralDE n "Seite" "Seiten"}:
 
 FavouriteVisited: Kürzlich besucht
 FavouriteParticipant: Ihre Kurse

messages/uniworx/misc/en-eu.msg

@@ -2673,6 +2673,7 @@ AllocationResultsTip: The following information reflect the current state of the
 AllocationResultsStudentTip: Listed below are placements in courses which you have received due to the mentioned central allocation and for which you have not left the respective course or have been deregistered. Thus placements you have been informed of already may be listed again.
 AllocationResultStudentRegistrationTip: You were enrolled in the course mentioned above in Uni2work.
 AllocationResultsStudentRegistrationTip: You were enrolled in the courses mentioned above in Uni2work.
+AllocationResultsStudentConsultFaq n@Int: If you have questions or remarks, please also take into account the information on the following #{pluralEN n "page" "pages"}:
 
 FavouriteVisited: Visited
 FavouriteParticipant: Your courses

src/Jobs/Handler/SendNotification/Allocation.hs

@@ -14,6 +14,8 @@ import Import
 import Handler.Utils
 import Jobs.Handler.SendNotification.Utils
 
+import Handler.Info (FAQItem(..))
+
 import Text.Hamlet
 
 import qualified Database.Esqueleto as E
@@ -182,7 +184,11 @@ dispatchNotificationAllocationResults nAllocation jRecipient = userMailT jRecipi
   setSubjectI $ MsgMailSubjectAllocationResults allocationName
   editNotifications <- mkEditNotifications jRecipient
 
+  studentFaqItems <- forM studentFaqItems' $ \faqItem -> (faqItem, ) <$> toTextUrl (FaqR :#: faqItem)
+
   addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/allocationResults.hamlet")
+  where
+    studentFaqItems' = [FAQAllocationNoPlaces]
 
 dispatchNotificationAllocationNewCourse :: AllocationId -> CourseId -> UserId -> Handler ()
 dispatchNotificationAllocationNewCourse nAllocation nCourse jRecipient = userMailT jRecipient $ do

templates/i18n/faq/allocation-no-places.de-de-formal.hamlet

@@ -19,14 +19,28 @@ $newline never
 
   <li>
 
-    Studienfortschritt (gemessen am Prozentsatz der für den Abschluss #
-    erforderlichen Veranstaltungen, die bereits bestanden wurden), #
-    nicht jedoch das Fach- oder Hochschulsemester
+    Die sog. „zentrale Dringlichkeit“
 
     <br />
 
-    Den aus dem Studienfortschritt errechnet Parameter nennt Uni2work #
-    die „zentrale Dringlichkeit“.
+    Als Berechnungsgrundlage wird der Studienfortschritt (gemessen am #
+    Prozentsatz der für den Abschluss erforderlichen Veranstaltungen, #
+    die bereits bestanden wurden), nicht jedoch das Fach- oder #
+    Hochschulsemester herangezogen. #
+
+    So wird z.B. für das Bachelorseminar als Grundqualifikation #
+    angenommen, dass bereits mindestens 90 ECTS erbracht wurden.
+
+    <br />
+
+    An dieser Stelle werden auch einige weitere Faktoren #
+    berücksichtigt, sodass die zentrale Dringlichkeit die #
+    „Notwendigkeit“ einen Platz zu erhalten möglichst gut modelliert. #
+
+    Insbesondere wird die Dringlichkeit reduziert, wenn die zum #
+    Abschluss des Studiums notwendige Anzahl an Kursen der #
+    entsprechenden Art (also Seminare/Praktika) bereits bestanden #
+    wurden.
 
   <li>
     

templates/i18n/faq/allocation-no-places.en-eu.hamlet

@@ -17,14 +17,26 @@ $newline never
     not compared between applicants.
 
   <li>
-    Study progress (measured by the number ECTS credits achieved as a #
-    percentage of those required for graduation) but not (university) #
-    semesters
+    The so called “central priority”
 
     <br />
 
-    The parameter calculated from study progress is referred to within #
-    Uni2work as “central priority”.
+    Study progress (measured by the number ECTS credits achieved as a #
+    percentage of those required for graduation) but not (university) #
+    semesters is used as a basis for the calculation. #
+
+    As an example, bachelor students are expected to have already #
+    achieved 90 ECTS points to be assigned a seminar.
+
+    <br />
+
+    At this point a number of other factors are also considered, such #
+    that the central priority models the “need” for a place as #
+    accurately as possible. #
+
+    In particular the priority will be reduced if the requisite number #
+    of courses of the appropriate type (seminar/practical course) were #
+    already passed.
 
   <li>
     Ratings of applications by course administrators

templates/mail/allocationResults.hamlet

@@ -35,6 +35,13 @@ $newline never
     $maybe pResults <- participantResults
       <p>
         _{SomeMessage MsgAllocationResultsStudentTip}
+      $if not (null studentFaqItems)
+        <p>
+          _{SomeMessage (MsgAllocationResultsStudentConsultFaq (length studentFaqItems))}
+        <ul>
+          $forall (faqItem, r) <- studentFaqItems
+            <a href=#{r}>
+              _{SomeMessage faqItem}
       $case pResults 
         $of []
           <p>_{SomeMessage MsgAllocationNoResultsStudent}