fix: ui improvements for (external-)exams

messages/uniworx/de-de-formal.msg

@@ -1552,6 +1552,7 @@ ExamBonusRule: Prüfungsbonus aus Übungsbetrieb
 ExamNoBonus': Kein automatischer Bonus
 ExamBonusPoints': Umrechnung von Übungspunkten
 ExamBonusManual': Manuelle Berechnung
+ExamGradesExplanation: Diese Ansicht zeigt die selben Daten an, wie die Tabelle von Prüfungsteilnehmern. Anpassen der Teilnehmerdaten und Ergebnisse ist nur dort möglich. Hier können Sie vor Allem einsehen und markieren, welche Prüfungsleistungen von den zuständigen Prüfungsbeauftragten bereits vollständig bearbeitet wurden.
 
 ExamRegisterForOccurrence: Anmeldung zur Klausur erfolgt durch Anmeldung zu einem Termin/Raum
 

messages/uniworx/en-eu.msg

@@ -1550,6 +1550,7 @@ ExamBonusRule: Bonus points from exercises
 ExamNoBonus': No automatic exam bonus
 ExamBonusPoints': Compute from exercise achievements
 ExamBonusManual': Manual computation
+ExamGradesExplanation: This view shows the same data as the table of exam participants. Changing participant's data and achievements is only possible via the table of exam participants. Primarily, this view allows you to check and adjust which exam achievements were properly handled by the relevant exam offices.
 
 ExamRegisterForOccurrence: Registration for this exam is done by registering for an occurrence/room
 

missing-translations.sh

@@ -1,5 +1,7 @@
 #!/usr/bin/env zsh
 
+set -e
+
 function translations() {
     msgFile=$1
 

src/Handler/ExamOffice/Exam.hs

@@ -437,6 +437,7 @@ postEGradesR tid ssh csh examn = do
   whenIsJust usersResult join
 
   closeWgt <- examCloseWidget (SomeRoute $ CExamR tid ssh csh examn EGradesR) eId
+  hasUsers <- hasReadAccessTo $ CExamR tid ssh csh examn EUsersR
 
   siteLayoutMsg (prependCourseTitle tid ssh csh MsgExamOfficeExamUsersHeading) $ do
     setTitleI $ prependCourseTitle tid ssh csh MsgExamOfficeExamUsersHeading

src/Handler/ExamOffice/ExternalExam.hs

@@ -26,6 +26,8 @@ postEEGradesR tid ssh coursen examn = do
 
   whenIsJust usersResult join
 
+  hasUsers <- hasReadAccessTo $ EExamR tid ssh coursen examn EEUsersR
+
   siteLayoutMsg (MsgExternalExamGrades coursen examn) $ do
     setTitleI MsgBreadcrumbExternalExamGrades
-    table
+    $(widgetFile "exam-office/externalExamGrades")

templates/exam-office/exam-results.hamlet

@@ -2,4 +2,8 @@ $newline never
 <section>
   ^{closeWgt}
 <section>
+  $if hasUsers
+    <div .notification .notification-info .fa-question .notification--broad>
+      <div .notification__content>
+        _{MsgExamGradesExplanation}
   ^{examUsersTable}

templates/exam-office/externalExamGrades.hamlet

@@ -0,0 +1,6 @@
+$newline never
+$if hasUsers
+  <div .notification .notification-info .fa-question .notification--broad>
+    <div .notification__content>
+      _{MsgExamGradesExplanation}
+^{table}