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

chore(qualifications): provide separate route for lms and qualifciations

Browse Source
This commit is contained in:
Steffen Jost 2023-01-27 15:57:48 +01:00
parent 01cc46c6e4
commit f0170f0774
3 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
routes
View File

@ -259,17 +259,18 @@
-- !/*{CI FilePath} CryptoFileNameDispatchR GET !free -- Disabled until preliminary check for valid cID exists
-- for users
/qualification QualificationAllR GET -- TODO repurpose
/qualification/#SchoolId QualificationSchoolR GET -- TODO repurpose
/qualification/#SchoolId/#QualificationShorthand QualificationR GET -- TODO repurpose
/qualification QualificationAllR GET !free
/qualification/#SchoolId QualificationSchoolR GET !free
/qualification/#SchoolId/#QualificationShorthand QualificationR GET !free
-- /qualification/#CryptoUUIDUser/ -- maybe distingquish via URL?
-- SAP export
/qualifications/sap/direct QualificationSAPDirectR GET !token
-- OSIS CSV Export Demo
/lms LmsAllR GET POST !free -- TODO verify that this is ok
/lms/#SchoolId LmsSchoolR GET !free -- TODO verify that this is ok
/lms/#SchoolId/#QualificationShorthand LmsR GET POST !free --
/lms/#SchoolId/#QualificationShorthand/limit/#Int64/skip/#Int64 LmsLSR GET POST !free -- FIXME Pagination does not work here somehow
/lms LmsAllR GET POST
/lms/#SchoolId LmsSchoolR GET
/lms/#SchoolId/#QualificationShorthand LmsR GET POST
/lms/#SchoolId/#QualificationShorthand/limit/#Int64/skip/#Int64 LmsLSR GET POST -- FIXME Pagination does not work here somehow
/lms/#SchoolId/#QualificationShorthand/edit LmsEditR GET POST
/lms/#SchoolId/#QualificationShorthand/users LmsUsersR GET
/lms/#SchoolId/#QualificationShorthand/users/direct LmsUsersDirectR GET -- development only

14
src/Foundation/Navigation.hs
View File

@ -712,9 +712,21 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the
}
, return NavHeader
{ navHeaderRole = NavHeaderPrimary
, navIcon = IconMenuLms
, navIcon = IconMenuQualifications
, navLink = NavLink
{ navLabel = MsgMenuQualifications
, navRoute = QualificationsAllR
, navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = False }
, navQuick' = mempty
, navForceActive = False
}
}
, return NavHeader
{ navHeaderRole = NavHeaderPrimary
, navIcon = IconMenuLms
, navLink = NavLink
{ navLabel = MsgMenuLms
, navRoute = LmsAllR
, navAccess' = NavAccessTrue
, navType = NavTypeLink { navModal = False }

4
src/Utils/Icon.hs
View File

@ -86,6 +86,7 @@ data Icon
| IconMenuCorrections
| IconMenuExams
| IconMenuAdmin
| IconMenuQualification
| IconMenuLms
| IconPageActionPrimaryExpand | IconPageActionSecondary
| IconBreadcrumbSeparator
@ -168,7 +169,8 @@ iconText = \case
IconMenuCorrections -> "check"
IconMenuExams -> "poll-h"
IconMenuAdmin -> "screwdriver"
IconMenuLms -> "graduation-cap" -- "award" "diploma" "file-certificate"
IconMenuLms -> "tasks" -- "user-graduate" "laptop"
IconMenuQualification -> "graduation-cap" -- "award" "diploma" "file-certificate"
IconPageActionPrimaryExpand -> "bars"
IconPageActionSecondary -> "ellipsis-h"
IconBreadcrumbSeparator -> "angle-right"