diff --git a/messages/uniworx/categories/courses/courses/de-de-formal.msg b/messages/uniworx/categories/courses/courses/de-de-formal.msg index eb106d048..92823ea08 100644 --- a/messages/uniworx/categories/courses/courses/de-de-formal.msg +++ b/messages/uniworx/categories/courses/courses/de-de-formal.msg @@ -277,4 +277,5 @@ MailSubjectLecturerInvitation tid@TermId ssh@SchoolId csh@CourseShorthand: [#{ti LecturerInvitationAccepted lType@Text csh@CourseShorthand: Sie wurden als #{lType} für #{csh} eingetragen CourseExamRegistrationTime: Angemeldet seit CourseParticipantStateIsActiveFilter: Ansicht -CourseApply: Zum Kurs bewerben \ No newline at end of file +CourseApply: Zum Kurs bewerben +CourseAdministrator: Kursadministrator:in \ No newline at end of file diff --git a/messages/uniworx/categories/courses/courses/en-eu.msg b/messages/uniworx/categories/courses/courses/en-eu.msg index d3e3d709f..da740b3ae 100644 --- a/messages/uniworx/categories/courses/courses/en-eu.msg +++ b/messages/uniworx/categories/courses/courses/en-eu.msg @@ -277,3 +277,4 @@ LecturerInvitationAccepted lType csh: You were registered as #{lType} for #{csh} CourseExamRegistrationTime: Registered since CourseParticipantStateIsActiveFilter: View CourseApply: Apply for course +CourseAdministrator: Course administrator \ No newline at end of file diff --git a/src/Model/Types/Course.hs b/src/Model/Types/Course.hs index e9779a486..7ede7a7e7 100644 --- a/src/Model/Types/Course.hs +++ b/src/Model/Types/Course.hs @@ -14,7 +14,7 @@ import Model.Types.TH.PathPiece import Utils.Lens.TH -data LecturerType = CourseLecturer | CourseAssistant +data LecturerType = CourseLecturer | CourseAssistant | CourseAdministrator deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable) deriving (Universe, Finite, NFData)