fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(course): additional crosslinking

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-18 19:21:56 +02:00
parent 0ebda4d382
commit 5eaba7830f
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Foundation.hs
View File

@ -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

3
templates/exam-show.hamlet
View File

@ -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