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

chore(lms): add route and breadcrumbs for lms oprhan view

Browse Source
This commit is contained in:
Steffen Jost 2025-02-03 18:10:21 +01:00 committed by Sarah Vaupel
parent 56aa06097b
commit 2360375385
5 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
routes
View File

@ -291,6 +291,7 @@
/lms/#SchoolId/#QualificationShorthand LmsR GET POST /lms/#SchoolId/#QualificationShorthand LmsR GET POST
-- new V2 LMS Interface -- new V2 LMS Interface
/lms/#SchoolId/#QualificationShorthand/learners LmsLearnersR GET /lms/#SchoolId/#QualificationShorthand/learners LmsLearnersR GET
/lms/#SchoolId/#QualificationShorthand/learners/orphans LmsOrphansR GET
/lms/#SchoolId/#QualificationShorthand/learners/direct LmsLearnersDirectR GET !token -- LMS /lms/#SchoolId/#QualificationShorthand/learners/direct LmsLearnersDirectR GET !token -- LMS
/lms/#SchoolId/#QualificationShorthand/report LmsReportR GET POST /lms/#SchoolId/#QualificationShorthand/report LmsReportR GET POST
/lms/#SchoolId/#QualificationShorthand/report/upload LmsReportUploadR GET POST /lms/#SchoolId/#QualificationShorthand/report/upload LmsReportUploadR GET POST

7
src/Foundation/Navigation.hs
View File

@ -200,6 +200,7 @@ breadcrumb (LmsR ssh qsh) = useRunDB . maybeT (i18nCrumb MsgBrea
-- v2 -- v2
breadcrumb (LmsLearnersR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsR ssh qsh breadcrumb (LmsLearnersR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsR ssh qsh
breadcrumb (LmsLearnersDirectR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsLearnersR ssh qsh -- never displayed, TypedContent breadcrumb (LmsLearnersDirectR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsLearnersR ssh qsh -- never displayed, TypedContent
breadcrumb (LmsOrphansR ssh qsh) = i18nCrumb MsgLmsOrphans $ Just $ LmsLearnersR ssh qsh
breadcrumb (LmsReportR ssh qsh) = i18nCrumb MsgMenuLmsReport $ Just $ LmsR ssh qsh breadcrumb (LmsReportR ssh qsh) = i18nCrumb MsgMenuLmsReport $ Just $ LmsR ssh qsh
breadcrumb (LmsReportUploadR ssh qsh) = i18nCrumb MsgMenuLmsUpload $ Just $ LmsReportR ssh qsh breadcrumb (LmsReportUploadR ssh qsh) = i18nCrumb MsgMenuLmsUpload $ Just $ LmsReportR ssh qsh
breadcrumb (LmsReportDirectR ssh qsh) = i18nCrumb MsgMenuLmsUpload $ Just $ LmsReportR ssh qsh -- never displayed breadcrumb (LmsReportDirectR ssh qsh) = i18nCrumb MsgMenuLmsUpload $ Just $ LmsReportR ssh qsh -- never displayed
@ -2436,6 +2437,12 @@ pageActions (LmsR sid qsh) = return
-- navLink = defNavLink MsgMenuLmsFake $ LmsFakeR sid qsh -- navLink = defNavLink MsgMenuLmsFake $ LmsFakeR sid qsh
-- } -- }
] ]
pageActions (LmsLearnersR sid qsh) = return
[ NavPageActionPrimary
{ navLink = defNavLink MsgLmsOrphans $ LmsOrphansR sid qsh
, navChildren = []
}
]
pageActions ApiDocsR = return pageActions ApiDocsR = return
[ NavPageActionPrimary [ NavPageActionPrimary
{ navLink = NavLink { navLink = NavLink

1
src/Handler/LMS.hs
View File

@ -14,6 +14,7 @@ module Handler.LMS
, getLmsLearnersR , getLmsLearnersDirectR , getLmsLearnersR , getLmsLearnersDirectR
, getLmsReportR , postLmsReportR , getLmsReportR , postLmsReportR
, getLmsReportUploadR , postLmsReportUploadR , postLmsReportDirectR , getLmsReportUploadR , postLmsReportUploadR , postLmsReportDirectR
, getLmsOrphansR
-- --
, getLmsFakeR , postLmsFakeR , getLmsFakeR , postLmsFakeR
, getLmsUserR , getLmsUserR

2
src/Handler/LMS/Learners.hs
View File

@ -133,7 +133,7 @@ mkUserTable _sid qsh qid cutoff = do
] ]
dbtFilter = Map.fromList dbtFilter = Map.fromList
[ (csvLmsIdent , FilterColumn $ E.mkContainsFilterWithCommaPlus LmsIdent (E.^. LmsUserIdent )) [ (csvLmsIdent , FilterColumn $ E.mkContainsFilterWithCommaPlus LmsIdent (E.^. LmsUserIdent ))
, (csvLmsResetPin , FilterColumn $ E.mkExactFilterLast (E.^. LmsUserResetPin)) , (csvLmsResetPin , FilterColumn $ E.mkExactFilterLast (E.^. LmsUserResetPin))
] ]
dbtFilterUI = \mPrev -> mconcat dbtFilterUI = \mPrev -> mconcat
[ prismAForm (singletonFilter csvLmsIdent . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField) (fslI MsgTableLmsIdent & setTooltip MsgTableFilterCommaPlus) [ prismAForm (singletonFilter csvLmsIdent . maybePrism _PathPiece) mPrev $ aopt (hoistField lift textField) (fslI MsgTableLmsIdent & setTooltip MsgTableFilterCommaPlus)

2
templates/i18n/lms-orphans/en-eu.hamlet
View File

@ -7,7 +7,7 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
<section> <section>
TODO TODO
<ul> <ul>
<li> #{tshow cutoff_seen_first} <li> #{tshow cutoff_seen_first}
<li> #{tshow cutoff_deleted_last} <li> #{tshow cutoff_deleted_last}
<li> #{tshow cutoff_seen_last} <li> #{tshow cutoff_seen_last}
<li> #{tshow orphan_max_batch} <li> #{tshow orphan_max_batch}