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

84
src/Foundation/Navigation.hs
View File

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