fraport/fradrive
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
-- new V2 LMS Interface
/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/report LmsReportR 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
breadcrumb (LmsLearnersR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsR ssh qsh
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 (LmsReportUploadR ssh qsh) = i18nCrumb MsgMenuLmsUpload $ Just $ LmsReportR ssh qsh
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
-- }
]
pageActions (LmsLearnersR sid qsh) = return
[ NavPageActionPrimary
{ navLink = defNavLink MsgLmsOrphans $ LmsOrphansR sid qsh
, navChildren = []
}
]
pageActions ApiDocsR = return
[ NavPageActionPrimary
{ navLink = NavLink

1
src/Handler/LMS.hs
View File

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

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

@ -133,7 +133,7 @@ mkUserTable _sid qsh qid cutoff = do
]
dbtFilter = Map.fromList
[ (csvLmsIdent , FilterColumn $ E.mkContainsFilterWithCommaPlus LmsIdent (E.^. LmsUserIdent ))
, (csvLmsResetPin , FilterColumn $ E.mkExactFilterLast (E.^. LmsUserResetPin))
, (csvLmsResetPin , FilterColumn $ E.mkExactFilterLast (E.^. LmsUserResetPin))
]
dbtFilterUI = \mPrev -> mconcat
[ 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>
TODO
<ul>
<li> #{tshow cutoff_seen_first}
<li> #{tshow cutoff_seen_first}
<li> #{tshow cutoff_deleted_last}
<li> #{tshow cutoff_seen_last}
<li> #{tshow orphan_max_batch}