feat(allocations): additional info and explanation for participants

messages/uniworx/de.msg

@@ -1522,7 +1522,7 @@ AllocationRegister: Bewerbung
 AllocationRegisterClosed: Die Zentralanmeldung ist aktuell geschlossen.
 AllocationRegisterOpensIn difftime@Text: Die Zentralanmeldung öffnet voraussichtlich in #{difftime}
 AllocationStaffAllocationFrom: Bewertung der Bewerbungen ab
-AllocationStaffAllocation: Bewerbungsbewertung
+AllocationStaffAllocation: Bewertung der Bewerbungen
 AllocationProcess: Platzvergabe
 AllocationNoApplication: Keine Bewerbung
 AllocationPriority: Priorität
@@ -1587,4 +1587,6 @@ SchoolExists ssh@SchoolId: Institut „#{ssh}“ existiert bereits
 SchoolAdmin: Admin
 SchoolLecturer: Dozent
 SchoolEvaluation: Kursumfragenverwaltung
-SchoolExamOffice: Prüfungsamt
+SchoolExamOffice: Prüfungsamt
+
+ApplicationEditTip: Während des Bewerbungszeitraums können eigene Bewerbungen beliebig angepasst und auch wieder zurückgezogen werden.

src/Handler/Allocation/Show.hs

@@ -46,8 +46,8 @@ getAShowR tid ssh ash = do
   let title = MsgAllocationTitle (mr . ShortTermIdentifier $ unTermKey allocationTerm) (unSchoolKey allocationSchool) allocationName
       shortTitle = MsgAllocationShortTitle (mr . ShortTermIdentifier $ unTermKey allocationTerm) (unSchoolKey allocationSchool) allocationShorthand
 
-  staffInformation <- anyM courses $ \(view $ resultCourse . _entityVal -> Course{..}) ->
-    hasReadAccessTo $ CourseR courseTerm courseSchool courseShorthand CApplicationsR
+  -- staffInformation <- anyM courses $ \(view $ resultCourse . _entityVal -> Course{..}) ->
+  --   hasReadAccessTo $ CourseR courseTerm courseSchool courseShorthand CApplicationsR
   mayRegister <- hasWriteAccessTo $ AllocationR tid ssh ash ARegisterR
   (registerForm, registerEnctype) <- generateFormPost . renderAForm FormStandard . allocationRegisterForm $ allocationUserToForm . entityVal <$> registration
   let

templates/allocation/show.hamlet

@@ -24,15 +24,14 @@ $newline never
           _{MsgAllocationRegisterFrom}
       <dd .deflist__dd>
         ^{formatTimeRangeW SelFormatDateTime fromT allocationRegisterTo}
-    $if staffInformation
-      $maybe fromT <- allocationStaffAllocationFrom
-        <dt .deflist__dt>
-          $maybe _ <- allocationStaffAllocationTo
-            _{MsgAllocationStaffAllocation}
-          $nothing
-            _{MsgAllocationStaffAllocationFrom}
-        <dd .deflist__dd>
-          ^{formatTimeRangeW SelFormatDateTime fromT allocationStaffAllocationTo}
+    $maybe fromT <- allocationStaffAllocationFrom
+      <dt .deflist__dt>
+        $maybe _ <- allocationStaffAllocationTo
+          _{MsgAllocationStaffAllocation}
+        $nothing
+          _{MsgAllocationStaffAllocationFrom}
+      <dd .deflist__dd>
+        ^{formatTimeRangeW SelFormatDateTime fromT allocationStaffAllocationTo}
 
     $# TODO show datetime of automatic allocation
     $#
@@ -78,6 +77,7 @@ $if not (null courseWidgets)
     <div .allocation__explanation .allocation__label>
       <p>_{MsgAllocationPriorityTip}
       <p>_{MsgAllocationPriorityRelative}
+      <p>_{MsgApplicationEditTip}
     <div .allocation__courses>
       $forall courseWgt <- courseWidgets
         ^{courseWgt}

templates/allocation/show.lucius

@@ -1,4 +1,4 @@
-.allocation__label {
+.allocation__label, .allocation__explanation {
   color: var(--color-fontsec);
   font-style: italic;
 }

templates/i18n/allocation-info/de.hamlet

@@ -33,6 +33,8 @@ $newline text
         zuweisen, zwischen "dieser Kurs wäre meine erste Wahl"
         und "diesen Kurs besuche ich auf keinen Fall".
         Es kann auch mehreren Kursen die gleiche Priorität eingeräumt werden.
+      <p>
+        Bewerbungen für und Prioritisierung der Kurse können innerhalb des Bewerbungszeitraums beliebig angepasst und zurückgezogen werden.
       <p>
         Studierende können auch mehr als einen Platz
         in verschiedenen Kursen einer Zentralanmeldung anfordern,