feat(course): additional crosslinking

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

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