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

feat(add-users): more page-actions for convenience

Browse Source
This commit is contained in:
Sarah Vaupel 2022-12-12 02:01:55 +01:00
parent 638ce6061e
commit a882a3c0d0
1 changed files with 43 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Foundation/Navigation.hs
View File

@ -1813,17 +1813,19 @@ pageActions (CTutorialR tid ssh csh tutn TEditR) = return
} }
} }
] ]
pageActions (CTutorialR tid ssh csh tutn TUsersR) = return pageActions (CTutorialR tid ssh csh tutn TUsersR) = do
membersSecondary <- pageQuickActions NavQuickViewPageActionSecondary $ CourseR tid ssh csh CUsersR
return
[ NavPageActionPrimary [ NavPageActionPrimary
{ navLink = NavLink { navLink = NavLink
{ navLabel = MsgMenuCourseAddMembers { navLabel = MsgMenuCourseMembers
, navRoute = CourseR tid ssh csh CAddUserR , navRoute = CourseR tid ssh csh CUsersR
, navAccess' = NavAccessTrue , navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = True } , navType = NavTypeLink { navModal = False }
, navQuick' = navQuick NavQuickViewPageActionSecondary , navQuick' = navQuick NavQuickViewPageActionSecondary
, navForceActive = False , navForceActive = False
} }
, navChildren = [] , navChildren = membersSecondary
} }
, NavPageActionPrimary , NavPageActionPrimary
{ navLink = NavLink { navLink = NavLink