From 3003b077428597b012e75a474a7da1d1c7ad07fd Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 23 Jan 2019 18:35:53 +0100
Subject: [PATCH] PageActionPrime for #270 implemented

---
 src/Foundation.hs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 09a0869ff..a9bfad011 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -1355,6 +1355,18 @@ pageActions (CSheetR tid ssh csh shn SShowR) =
           guard $ null submissions
           return True
       }
+  , MenuItem
+      { menuItemType = PageActionPrime
+      , menuItemLabel = MsgMenuCorrections
+      , menuItemIcon = Nothing
+      , menuItemRoute = SomeRoute (CorrectionsR, [ ("corrections-term"  , termToText $ unTermKey tid)
+                                                 , ("corrections-school", CI.original $ unSchoolKey ssh)
+                                                 , ("corrections-course", CI.original csh)
+                                                 , ("corrections-sheet" , CI.original shn)
+                                                 ])
+      , menuItemModal = False
+      , menuItemAccessCallback' = (== Authorized) <$> evalAccess (CourseR tid ssh csh CNotesR) False
+      }
   , MenuItem
       { menuItemType = PageActionPrime
       , menuItemLabel = MsgMenuSubmissionOwn
@@ -1369,7 +1381,7 @@ pageActions (CSheetR tid ssh csh shn SShowR) =
       }
   , MenuItem
       { menuItemType = PageActionPrime
-      , menuItemLabel = MsgMenuCorrectors
+      , menuItemLabel = MsgMenuSubmissions
       , menuItemIcon = Nothing
       , menuItemRoute = SomeRoute $ CSheetR tid ssh csh shn SCorrR
       , menuItemModal = False