feat: refine presentation of exam-correct

messages/uniworx/de-de-formal.msg

@@ -1402,7 +1402,7 @@ ExamCorrectHeading examname@Text: Prüfungsergebnisse für #{examname} eintragen
 
 ExamCorrectHeadDate: Zeit
 ExamCorrectHeadParticipant: Teilnehmer
-ExamCorrectHeadParticipantTooltip: Geben Sie hier einen beliebigen eindeutigen Identifikator des Teilnehmers an. Definitiv eindeutig ist die Matrikelnummer des Teilnehmers, aber auch der Name oder ein Teil der Matrikelnummer können unter Umständen (je nach Liste aller Prüfungsteilnehmer) bereits eindeutig sein.
+ExamCorrectHeadParticipantTooltip: 
 ExamCorrectHeadPart exampartnum@ExamPartNumber: #{exampartnum}
 ExamCorrectHeadPartName exampartname@ExamPartName: #{exampartname}
 ExamCorrectHeadStatus: Status

messages/uniworx/en-eu.msg

@@ -1400,7 +1400,6 @@ ExamCorrectHeading examname: Submit corrections for #{examname}
 
 ExamCorrectHeadDate: Time
 ExamCorrectHeadParticipant: Participant
-ExamCorrectHeadParticipantTooltip: Enter any string that uniquely identifies the participant. Their matriculation number is definitely unique, but also their name or a part of their matriculation number may already be unique for this participant (depending on the list of all participants).
 ExamCorrectHeadPart exampartnum: #{exampartnum}
 ExamCorrectHeadPartName exampartname: #{exampartname}
 ExamCorrectHeadStatus: Status

src/Handler/Exam/Correct.hs

@@ -86,8 +86,6 @@ getECorrectR tid ssh csh examn = do
       name <- newIdent
       fieldView (pointsField :: Field Handler Points) ("exam-correct__" <> toPathPiece n) name [("uw-exam-correct--part-input", toPathPiece n)] (Left "") False
     
-    participantHeadTooltip = [whamlet| _{MsgExamCorrectHeadParticipantTooltip} |]
-
     examGrades :: [ExamGrade]
     examGrades = universeF
 
@@ -95,6 +93,7 @@ getECorrectR tid ssh csh examn = do
 
   siteLayoutMsg heading $ do
     setTitleI heading
+    let examCorrectExplanation = $(i18nWidgetFile "exam-correct-explanation")
     $(widgetFile "exam-correct")
 
 

templates/exam-correct.hamlet

@@ -1,24 +1,18 @@
 $newline never
+<section>
+  ^{examCorrectExplanation}
 
 <section>
   <div uw-hide-columns="exam-correct" .scrolltable .scrolltable--bordered>
-    <table .table .table--striped table--hover uw-exam-correct=#{toPathPiece examCorrectIdent} uw-sort-table=exam-correct-#{toPathPiece examCorrectIdent}>
+    <table .table .table--striped .table--hover uw-exam-correct=#{toPathPiece examCorrectIdent} uw-sort-table=exam-correct-#{toPathPiece examCorrectIdent}>
       <thead>
         <tr .table__row .table__row--head>
           <th .table__th .uw-exam-correct--date-cell uw-exam-correct-header="date" uw-hide-column-header="date">
             _{MsgExamCorrectHeadDate}
           <th .table__th .uw-exam-correct--user-cell uw-exam-correct-header="user" uw-hide-column-header="user">
             _{MsgExamCorrectHeadParticipant}
-            ^{iconTooltip participantHeadTooltip Nothing True}
+          $forall ExamPart{examPartNumber} <- examParts
-          $forall ExamPart{examPartNumber,examPartName} <- examParts
             <th .table__th .uw-exam-correct--part-cell uw-exam-correct-header=#{examPartNumber} uw-hide-column-header=#{examPartNumber}>
-              $maybe name <- examPartName
-                <span .tooltip>
-                  <span>
-                    _{MsgExamCorrectHeadPart examPartNumber}
-                  <span .tooltip__content>
-                    _{MsgExamCorrectHeadPartName name}
-              $nothing
                 _{MsgExamCorrectHeadPart examPartNumber}
           $if mayEditResults
             <th .table__th .uw-exam-correct--result-cell uw-exam-correct-header="result" uw-hide-column-header="result" colspan=2>

templates/i18n/exam-correct-explanation/de-de-formal.hamlet

@@ -0,0 +1,9 @@
+$newline never
+<p>
+  Um eine Prüfungsleistung einzutragen können Sie in der #
+  Teilnehmer-Spalte einen beliebigen eindeutigen Identifikator des #
+  Teilnehmers angeben.<br />
+
+  Vermutlich eindeutig ist die Matrikelnummer des Teilnehmers, aber #
+  auch der Name oder ein Teil der Matrikelnummer können unter #
+  Umständen bereits eindeutig sein. #

templates/i18n/exam-correct-explanation/en-eu.hamlet

@@ -0,0 +1,8 @@
+$newline never
+<p>
+  To enter a participant's exam achievement you can submit any string #
+  that uniquely identifies the participant.<br />
+
+  Matriculation numbers are likely unique. #
+  The participant's name or a part of their matriculation number may #
+  also be sufficiently unique.