diff --git a/messages/uniworx/de-de-formal.msg b/messages/uniworx/de-de-formal.msg index 5886e9815..a1a607b77 100644 --- a/messages/uniworx/de-de-formal.msg +++ b/messages/uniworx/de-de-formal.msg @@ -1593,6 +1593,9 @@ ExamCorrectErrorNoMatchingParticipants: Dem Identifikator konnte kein Prüfungst ExamCorrectErrorPartResultOutOfBounds examPartNumber@ExamPartNumber: Prüfungsergebnis für Teil #{examPartNumber} ist nicht größer Null. ExamCorrectErrorPartResultOutOfBoundsMax examPartNumber@ExamPartNumber maxPoints@Points: Prüfungsergebnis für Teil #{examPartNumber} liegt nicht zwischen 0 und #{maxPoints}. +ExternalExamCorrectErrorMultipleMatchingUsers: Dem Identifikator konnten mehrere Studierende zugeordnet werden. +ExternalExamCorrectErrorNoMatchingUsers: Dem Identifikator konnte kein Studierender zugeordnet werden. + SubmissionUserInvitationAccepted shn@SheetName: Sie wurden als Mitabgebende(r) für eine Abgabe zu #{shn} eingetragen SubmissionUserInvitationDeclined shn@SheetName: Sie haben die Einladung, Mitabgebende(r) für #{shn} zu werden, abgelehnt SubmissionUserInviteHeading shn@SheetName: Einladung zu einer Abgabe für #{shn} diff --git a/messages/uniworx/en-eu.msg b/messages/uniworx/en-eu.msg index 50475f573..8fa777f0c 100644 --- a/messages/uniworx/en-eu.msg +++ b/messages/uniworx/en-eu.msg @@ -1588,6 +1588,9 @@ ExamCorrectErrorNoMatchingParticipants: This identifier does not match on any ex ExamCorrectErrorPartResultOutOfBounds examPartNumber: Exam part result for #{examPartNumber} ist not greater zero. ExamCorrectErrorPartResultOutOfBoundsMax examPartNumber maxPoints: Exam part result for #{examPartNumber} is not between 0 and #{maxPoints}. +ExternalExamCorrectErrorMultipleMatchingUsers: This identifier matches on multiple students. +ExternalExamCorrectErrorNoMatchingUsers: This identifier does not match any student. + ExamCorrectExamResultDelete: Delete exam result ExamCorrectExamResultNone: No change ExamCorrectUserCandidatesMore: and more diff --git a/src/Handler/ExternalExam/Correct.hs b/src/Handler/ExternalExam/Correct.hs index bb976baaa..ac91e0445 100644 --- a/src/Handler/ExternalExam/Correct.hs +++ b/src/Handler/ExternalExam/Correct.hs @@ -137,7 +137,7 @@ postEECorrectR tid ssh coursen examn = do | [] <- matches -> return CorrectInterfaceResponseFailure { cirfUser = Nothing - , cirfMessage = mr MsgExamCorrectErrorNoMatchingParticipants -- TODO use new msg + , cirfMessage = mr MsgExternalExamCorrectErrorNoMatchingUsers } | otherwise -> do @@ -145,7 +145,7 @@ postEECorrectR tid ssh coursen examn = do return CorrectInterfaceResponseAmbiguous { ciraUsers = Set.fromList users , ciraHasMore = length matches > maxCountUserMatches - , ciraMessage = mr MsgExamCorrectErrorMultipleMatchingParticipants -- TODO use new msg + , ciraMessage = mr MsgExternalExamCorrectErrorMultipleMatchingUsers } whenM acceptsJson $