diff --git a/messages/uniworx/utils/navigation/menu/de-de-formal.msg b/messages/uniworx/utils/navigation/menu/de-de-formal.msg index acb8e0edb..899d26ea9 100644 --- a/messages/uniworx/utils/navigation/menu/de-de-formal.msg +++ b/messages/uniworx/utils/navigation/menu/de-de-formal.msg @@ -1,4 +1,4 @@ -# SPDX-FileCopyrightText: 2022 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Steffen Jost ,Winnie Ros +# SPDX-FileCopyrightText: 2022-25 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Steffen Jost ,Winnie Ros ,Steffen Jost # # SPDX-License-Identifier: AGPL-3.0-or-later @@ -126,7 +126,6 @@ MenuQualifications: Qualifikationen MenuQualificationEdit: Bearbeiten MenuQualificationNew: Neue Qualifikation erstellen MenuLms !ident-ok: E‑Learning -MenuLmsEdit: Bearbeiten E‑Learning MenuLmsUser: Benutzerqualifikationen MenuLmsUserSchool: Bereichs Benutzerqualifikationen MenuLmsUserAll: Alle Benutzerqualifikationen diff --git a/messages/uniworx/utils/navigation/menu/en-eu.msg b/messages/uniworx/utils/navigation/menu/en-eu.msg index 5cc1960f0..e739e6981 100644 --- a/messages/uniworx/utils/navigation/menu/en-eu.msg +++ b/messages/uniworx/utils/navigation/menu/en-eu.msg @@ -1,4 +1,4 @@ -# SPDX-FileCopyrightText: 2022 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Winnie Ros +# SPDX-FileCopyrightText: 2022-25 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Winnie Ros ,Steffen Jost # # SPDX-License-Identifier: AGPL-3.0-or-later @@ -126,7 +126,6 @@ MenuQualifications: Qualifications MenuQualificationEdit: Edit MenuQualificationNew: Create new qualification MenuLms: E‑learning -MenuLmsEdit: Edit e‑learning MenuLmsUser: User Qualifications MenuLmsUserSchool: Institute User Qualifications MenuLmsUserAll: All User Qualifications diff --git a/routes b/routes index 78a8537c2..967e3ab47 100644 --- a/routes +++ b/routes @@ -292,7 +292,6 @@ /lms LmsAllR GET POST /lms/#SchoolId LmsSchoolR GET /lms/#SchoolId/#QualificationShorthand LmsR GET POST -/lms/#SchoolId/#QualificationShorthand/edit LmsEditR GET POST -- new V2 LMS Interface /lms/#SchoolId/#QualificationShorthand/learners LmsLearnersR GET /lms/#SchoolId/#QualificationShorthand/learners/direct LmsLearnersDirectR GET !token -- LMS diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index f898aa0a4..87786af36 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -201,7 +201,6 @@ breadcrumb (LmsSchoolR ssh ) = useRunDB . maybeT (i18nCrumb MsgBrea breadcrumb (LmsR ssh qsh) = useRunDB . maybeT (i18nCrumb MsgBreadcrumbCourse . Just $ LmsSchoolR ssh) $ do guardM . lift . existsBy $ SchoolQualificationShort ssh qsh return (CI.original qsh, Just $ LmsSchoolR ssh) -breadcrumb (LmsEditR ssh qsh) = i18nCrumb MsgMenuLmsEdit $ Just $ LmsR ssh qsh -- v2 breadcrumb (LmsLearnersR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsR ssh qsh breadcrumb (LmsLearnersDirectR ssh qsh) = i18nCrumb MsgMenuLmsLearners $ Just $ LmsLearnersR ssh qsh -- never displayed, TypedContent @@ -2454,7 +2453,7 @@ pageActions (LmsR sid qsh) = return ] } , NavPageActionSecondary { - navLink = defNavLink MsgMenuLmsEdit $ LmsEditR sid qsh + navLink = defNavLink MsgMenuQualificationEdit $ QualificationEditR sid qsh } -- , NavPageActionSecondary { -- navLink = defNavLink MsgMenuLmsFake $ LmsFakeR sid qsh diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs index 66bae3fd9..1127b3bbf 100644 --- a/src/Handler/LMS.hs +++ b/src/Handler/LMS.hs @@ -10,7 +10,6 @@ module Handler.LMS , getLmsSchoolR , getLmsR , postLmsR , getLmsIdentR - , getLmsEditR , postLmsEditR -- V2 , getLmsLearnersR , getLmsLearnersDirectR , getLmsReportR , postLmsReportR @@ -207,12 +206,6 @@ mkLmsAllTable isAdmin lmsDeletionDays = do dbTable resultDBTableValidator resultDBTable - -getLmsEditR, postLmsEditR :: SchoolId -> QualificationShorthand -> Handler Html -getLmsEditR = postLmsEditR -postLmsEditR = error "TODO: STUB" - - data LmsTableCsv = LmsTableCsv -- L..T..C.. -> ltc.. { ltcDisplayName :: UserDisplayName , ltcEmail :: UserEmail