feat(eecorrectr): add handlers and navigation

messages/uniworx/de-de-formal.msg

@@ -1346,6 +1346,7 @@ MenuExternalExamUsers: Teilnehmer
 MenuExternalExamEdit: Bearbeiten
 MenuExternalExamNew: Neue externe Prüfung
 MenuExternalExamList: Externe Prüfungen
+MenuExternalExamCorrect: Prüfungsleistungen eintragen
 MenuParticipantsList: Kursteilnehmerlisten
 MenuParticipantsIntersect: Überschneidung von Kursteilnehmern
 MenuAllocationUsers: Bewerber
@@ -1417,6 +1418,7 @@ BreadcrumbExternalExamEdit: Editieren
 BreadcrumbExternalExamUsers: Teilnehmer
 BreadcrumbExternalExamGrades: Prüfungsleistungen
 BreadcrumbExternalExamStaffInvite: Einladung zum Prüfer
+BreadcrumbExternalExamCorrect: Prüfungsleistungen eintragen
 BreadcrumbParticipantsList: Kursteilnehmerlisten
 BreadcrumbParticipants: Kursteilnehmerliste
 BreadcrumbExamAutoOccurrence: Automatische Termin-/Raumverteilung

messages/uniworx/en-eu.msg

@@ -1346,6 +1346,7 @@ MenuExternalExamUsers: Participants
 MenuExternalExamEdit: Edit
 MenuExternalExamNew: New external exam
 MenuExternalExamList: External exams
+MenuExternalExamCorrect: Enter exam results
 MenuParticipantsList: Lists of course participants
 MenuParticipantsIntersect: Common course participants
 MenuAllocationUsers: Applicants
@@ -1417,6 +1418,7 @@ BreadcrumbExternalExamEdit: Edit
 BreadcrumbExternalExamUsers: Participants
 BreadcrumbExternalExamGrades: Exam results
 BreadcrumbExternalExamStaffInvite: Invitation
+BreadcrumbExternalExamCorrect: Enter exam results
 BreadcrumbParticipantsList: Lists of course participants
 BreadcrumbParticipants: Course participants
 BreadcrumbExamAutoOccurrence: Automatic occurrence/room distribution

routes

@@ -92,6 +92,7 @@
   /users                   EEUsersR            GET POST
   /grades                  EEGradesR           GET POST        !exam-office
   /staff-invite            EEStaffInviteR      GET POST
+  /correct                 EECorrectR          GET POST
   
 
 /term                      TermShowR           GET             !free

src/Foundation.hs

@@ -2697,6 +2697,7 @@ instance YesodBreadcrumbs UniWorX where
     EEUsersR -> i18nCrumb MsgBreadcrumbExternalExamUsers . Just $ EExamR tid ssh coursen examn EEShowR
     EEGradesR -> i18nCrumb MsgBreadcrumbExternalExamGrades . Just $ EExamR tid ssh coursen examn EEShowR 
     EEStaffInviteR -> i18nCrumb MsgBreadcrumbExternalExamStaffInvite . Just $ EExamR tid ssh coursen examn EEShowR
+    EECorrectR -> i18nCrumb MsgBreadcrumbExternalExamCorrect . Just $ EExamR tid ssh coursen examn EEShowR
   
   -- breadcrumb  _ = return ("Uni2work", Nothing) -- Default is no breadcrumb at all
 
@@ -4413,9 +4414,31 @@ pageActions (EExamR tid ssh coursen examn EEShowR) = return
         }
       , navChildren = []
       }
+  , NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuExternalExamCorrect
+        , navRoute       = EExamR tid ssh coursen examn EECorrectR
+        , navAccess'     = return True
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      , navChildren = []
+      }
   ]
 pageActions (EExamR tid ssh coursen examn EEGradesR) = return
   [ NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuExternalExamCorrect
+        , navRoute       = EExamR tid ssh coursen examn EECorrectR
+        , navAccess'     = return True
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      , navChildren = []
+      }
+  , NavPageActionPrimary
       { navLink = NavLink
         { navLabel       = MsgMenuExternalExamUsers
         , navRoute       = EExamR tid ssh coursen examn EEUsersR
@@ -4450,6 +4473,17 @@ pageActions (EExamR tid ssh coursen examn EEUsersR) = return
         }
       , navChildren = []
       }
+  , NavPageActionPrimary
+      { navLink = NavLink
+        { navLabel       = MsgMenuExternalExamCorrect
+        , navRoute       = EExamR tid ssh coursen examn EECorrectR
+        , navAccess'     = return True
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      , navChildren = []
+      }
   , NavPageActionPrimary
       { navLink = NavLink
         { navLabel       = MsgMenuExternalExamEdit

src/Handler/ExternalExam.hs

@@ -8,3 +8,4 @@ import Handler.ExternalExam.Show as Handler.ExternalExam
 import Handler.ExternalExam.Edit as Handler.ExternalExam
 import Handler.ExternalExam.Users as Handler.ExternalExam
 import Handler.ExternalExam.StaffInvite as Handler.ExternalExam
+import Handler.ExternalExam.Correct as Handler.ExternalExam

src/Handler/ExternalExam/Correct.hs

@@ -0,0 +1,13 @@
+module Handler.ExternalExam.Correct
+  ( getEECorrectR, postEECorrectR
+  ) where
+
+import Import
+
+
+getEECorrectR :: TermId -> SchoolId -> CourseName -> ExamName -> Handler Html
+getEECorrectR _tid _ssh _coursen _examn = error "getEECorrectR WIP"
+
+
+postEECorrectR :: TermId -> SchoolId -> CourseName -> ExamName -> Handler Void
+postEECorrectR _tid _ssh _coursen _examn = error "postEECorrectR WIP"