From 15689c597ef407583b01dabc9f7631e9dc90b009 Mon Sep 17 00:00:00 2001
From: ros <ros@cip.ifi.lmu.de>
Date: Mon, 5 Jul 2021 12:53:17 +0200
Subject: [PATCH] feat(course admin): done

---
 messages/uniworx/categories/courses/courses/de-de-formal.msg | 3 ++-
 messages/uniworx/categories/courses/courses/en-eu.msg        | 1 +
 src/Application.hs                                           | 1 +
 src/Model/Types/Course.hs                                    | 2 +-
 4 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/messages/uniworx/categories/courses/courses/de-de-formal.msg b/messages/uniworx/categories/courses/courses/de-de-formal.msg
index fb33d8c9f..cb324e1dc 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: Administrator: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..96c84588f 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: Administrator
\ No newline at end of file
diff --git a/src/Application.hs b/src/Application.hs
index 0c0fcbbd5..426fc930d 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -710,3 +710,4 @@ addPWEntry User{ userAuthentication = _, ..} (Text.encodeUtf8 -> pw) = db' $ do
   PWHashConf{..} <- getsYesod $ view _appAuthPWHash
   (AuthPWHash . Text.decodeUtf8 -> userAuthentication) <- liftIO $ makePasswordWith pwHashAlgorithm pw pwHashStrength
   void $ insert User{..}
+
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)