fix: merge

messages/uniworx/de-de-formal.msg

@@ -412,6 +412,7 @@ UnauthorizedLecturer: Sie sind nicht als Veranstalter für diese Veranstaltung e
 UnauthorizedAllocationLecturer: Sie sind nicht als Veranstalter für eine Veranstaltung dieser Zentralanmeldung eingetragen.
 UnauthorizedCorrector: Sie sind nicht als Korrektor für diese Veranstaltung eingetragen.
 UnauthorizedSheetCorrector: Sie sind nicht als Korrektor für dieses Übungsblatt eingetragen.
+UnauthorizedExamCorrector: Sie sind nicht als Korrektor für diese Prüfung eingetragen.
 UnauthorizedCorrectorAny: Sie sind nicht als Korrektor für eine Veranstaltung eingetragen.
 UnauthorizedRegistered: Sie sind nicht als Teilnehmer für diese Veranstaltung registriert.
 UnauthorizedAllocationRegistered: Sie sind nicht als Teilnehmer für diese Zentralanmeldung registriert.
@@ -1189,6 +1190,7 @@ MenuExamEdit: Bearbeiten
 MenuExamUsers: Teilnehmer
 MenuExamGrades: Prüfungsleistungen
 MenuExamAddMembers: Prüfungsteilnehmer hinzufügen
+MenuExamCorrect: Prüfungsergebnisse eintragen
 MenuExamOfficeExams: Prüfungen
 MenuExamOfficeFields: Fächer
 MenuExamOfficeUsers: Benutzer
@@ -1291,6 +1293,7 @@ AuthTagDeprecated: Seite ist nicht überholt
 AuthTagDevelopment: Seite ist nicht in Entwicklung
 AuthTagLecturer: Nutzer ist Dozent
 AuthTagCorrector: Nutzer ist Korrektor
+AuthTagExamCorrector: Nutzer ist Klausurkorrektor
 AuthTagTutor: Nutzer ist Tutor
 AuthTagTutorControl: Tutoren haben Kontrolle über ihre Tutorium
 AuthTagTime: Zeitliche Einschränkungen sind erfüllt

messages/uniworx/en-eu.msg

@@ -410,6 +410,7 @@ UnauthorizedLecturer: You are no administrator for this course.
 UnauthorizedAllocationLecturer: You are no administrator for any of the courses of this central allocation.
 UnauthorizedCorrector: You are no sheet corrector for this course.
 UnauthorizedSheetCorrector: You are no corrector for this sheet.
+UnauthorizedExamCorrector: You are no corrector for this exam.
 UnauthorizedCorrectorAny: You are no corrector for any course.
 UnauthorizedRegistered: You are no participant in this course.
 UnauthorizedAllocationRegistered: You are no participant in this central allocation.
@@ -1188,6 +1189,7 @@ MenuExamEdit: Edit
 MenuExamUsers: Participants
 MenuExamGrades: Exam results
 MenuExamAddMembers: Add exam participants
+MenuExamCorrect: Grade exams
 MenuExamOfficeExams: Exams
 MenuExamOfficeFields: Fields of study
 MenuExamOfficeUsers: Users
@@ -1290,6 +1292,7 @@ AuthTagDeprecated: Page is not deprecated
 AuthTagDevelopment: Page is not in development
 AuthTagLecturer: User is lecturer
 AuthTagCorrector: User is corrector
+AuthTagExamCorrector: User is exam corrector
 AuthTagTutor: User is tutor
 AuthTagTutorControl: Tutors have control over their tutorial
 AuthTagTime: Time restrictions are fulfilled

records.json

@@ -274,10 +274,12 @@
   ],
   "modules": {
     "byIdentifier": {
-      "multi frontend/src/polyfill.js frontend/src/main.js": 0
+      "multi frontend/src/polyfill.js frontend/src/main.js": 0,
+      "ignored node_modules/sodium-javascript crypto": 1
     },
     "usedIds": {
-      "0": 0
+      "0": 0,
+      "1": 1
     }
   },
   "chunks": {

src/Foundation.hs

@@ -542,6 +542,8 @@ tagAccessPredicate AuthExamCorrector = APDB $ \mAuthId route _ -> case route of
            E.&&. course E.^. CourseSchool E.==. E.val ssh
            E.&&. course E.^. CourseShorthand E.==. E.val csh
            E.&&. exam E.^. ExamName E.==. E.val examn
+    guardMExceptT isCorrector $ unauthorizedI MsgUnauthorizedExamCorrector
+    return Authorized
   r -> $unsupportedAuthPredicate AuthExamCorrector r
 tagAccessPredicate AuthTutor = APDB $ \mAuthId route _ -> exceptT return return $ do
   authId <- maybeExceptT AuthenticationRequired $ return mAuthId

src/Handler/Exam/Form.hs

@@ -147,7 +147,7 @@ examCorrectorsForm mPrev = wFormToAForm $ do
     miLayout' :: MassInputLayout ListLength (Either UserEmail UserId) ()
     miLayout' lLength _ cellWdgts delButtons addWdgts = $(widgetFile "widgets/massinput/examCorrectors/layout")
 
-  fmap Set.fromList <$> massInputAccumW miAdd' miCell' miButtonAction' miLayout' ("correctors" :: Text) (fslI MsgExamCorrectors & setTooltip (UniWorXMessages [MsgExamCorrectorsTip, MsgMassInputTip]) False (Set.toList <$> mPrev)
+  fmap Set.fromList <$> massInputAccumW miAdd' miCell' miButtonAction' miLayout' ("correctors" :: Text) (fslI MsgExamCorrectors & setTooltip (UniWorXMessages [SomeMessage MsgExamCorrectorsTip, SomeMessage MsgMassInputTip])) False (Set.toList <$> mPrev)
 
 examOccurrenceForm :: Maybe (Set ExamOccurrenceForm) -> AForm Handler (Set ExamOccurrenceForm)
 examOccurrenceForm prev = wFormToAForm $ do

src/Model/Types/Security.hs

@@ -47,6 +47,7 @@ data AuthTag -- sortiert nach gewünschter Reihenfolge auf /authpreds, d.h. Prä
   = AuthAdmin
   | AuthLecturer
   | AuthCorrector
+  | AuthExamCorrector
   | AuthTutor
   | AuthTutorControl
   | AuthExamOffice