From 5eaba7830f052fac42a0ce387619a09cefea48f8 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 18 Sep 2019 19:21:56 +0200
Subject: [PATCH] feat(course): additional crosslinking

---
 src/Foundation.hs          | 18 ++++++++++++++++++
 templates/exam-show.hamlet |  3 ++-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 3f70dd564..58438298a 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -2717,6 +2717,24 @@ pageActions (CExamR tid ssh csh examn EUsersR) =
       , menuItemModal = True
       , menuItemAccessCallback' = return True
       }
+  , MenuItem
+      { menuItemType  = PageActionPrime
+      , menuItemLabel = MsgMenuExamGrades
+      , menuItemIcon  = Nothing
+      , menuItemRoute = SomeRoute $ CExamR tid ssh csh examn EGradesR
+      , menuItemModal = False
+      , menuItemAccessCallback' = return True
+      }
+  ]
+pageActions (CExamR tid ssh csh examn EGradesR) =
+  [ MenuItem
+      { menuItemType  = PageActionPrime
+      , menuItemLabel = MsgMenuExamUsers
+      , menuItemIcon  = Nothing
+      , menuItemRoute = SomeRoute $ CExamR tid ssh csh examn EUsersR
+      , menuItemModal = False
+      , menuItemAccessCallback' = return True
+      }
   ]
 pageActions (CSheetR tid ssh csh shn SShowR) =
   [ MenuItem
diff --git a/templates/exam-show.hamlet b/templates/exam-show.hamlet
index cfe28bcf2..b05d2c2b6 100644
--- a/templates/exam-show.hamlet
+++ b/templates/exam-show.hamlet
@@ -184,7 +184,8 @@ $if gradingShown && not (null examParts)
             $if partNumbersShown
               <td .table__td>
             <td .table__td>
-              _{MsgExamBonusAchieved}
+              <a href=@{CourseR tid ssh csh SheetListR}>
+                _{MsgExamBonusAchieved}
             $if showMaxPoints
               <td .table__td>
             $if showAchievedPoints