feat: refine presentation of exam-correct

This commit is contained in:
Gregor Kleen 2020-02-07 13:25:26 +01:00
parent 1942ad10d5
commit 95c1755710
6 changed files with 23 additions and 14 deletions

View File

@ -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

View File

@ -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

View File

@ -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")

View File

@ -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,examPartName} <- examParts
$forall ExamPart{examPartNumber} <- 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>

View File

@ -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. #

View File

@ -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.