diff --git a/messages/uniworx/utils/navigation/menu/de-de-formal.msg b/messages/uniworx/utils/navigation/menu/de-de-formal.msg index 816b57995..13549c3ec 100644 --- a/messages/uniworx/utils/navigation/menu/de-de-formal.msg +++ b/messages/uniworx/utils/navigation/menu/de-de-formal.msg @@ -123,9 +123,9 @@ MenuLmsEdit: Bearbeiten E‑Learning MenuLmsUser: Benutzerqualifikationen MenuLmsUserSchool: Bereichs Benutzerqualifikationen MenuLmsUserAll: Alle Benutzerqualifikationen -MenuLmsUsers: Export E‑Learning Benutzer -MenuLmsUserlist: Melden E‑Learning Benutzer -MenuLmsResult: Melden Ergebnisse E‑Learning +MenuLmsUsers: Veralteter Export E‑Learning Benutzer +MenuLmsUserlist: Veraltetes Melden E‑Learning Benutzer +MenuLmsResult: Veralteter Melden Ergebnisse E‑Learning MenuLmsUpload: Hochladen MenuLmsDirectUpload: Direkter Upload MenuLmsDirectDownload: Direkter Download diff --git a/messages/uniworx/utils/navigation/menu/en-eu.msg b/messages/uniworx/utils/navigation/menu/en-eu.msg index 3bc54feeb..338e16af9 100644 --- a/messages/uniworx/utils/navigation/menu/en-eu.msg +++ b/messages/uniworx/utils/navigation/menu/en-eu.msg @@ -119,20 +119,20 @@ MenuCourseEventEdit: Edit course type occurrence MenuLanguage: Language MenuQualifications: Qualifications -MenuLms: E‑Learning -MenuLmsEdit: Edit E‑Learning +MenuLms: E‑learning +MenuLmsEdit: Edit e‑learning MenuLmsUser: User Qualifications MenuLmsUserSchool: Institute User Qualifications MenuLmsUserAll: All User Qualifications -MenuLmsUsers: Download E‑Learning Users -MenuLmsUserlist: Upload E‑Learning Users -MenuLmsResult: Upload E‑Learning Results +MenuLmsUsers: Legacy download e‑learning users +MenuLmsUserlist: Legacy upload e‑learning users +MenuLmsResult: Legacy upload r‑learning results MenuLmsUpload: Upload MenuLmsDirectUpload: Direct Upload MenuLmsDirectDownload: Direct Download MenuLmsFake: Generate Test Users -MenuLmsLearners: E‑Learning Users -MenuLmsReport: E‑Learning Results +MenuLmsLearners: E‑learning Users +MenuLmsReport: E‑learning Results MenuSap: SAP Interface diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index a43d59f5a..c9ec813ea 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -2345,24 +2345,37 @@ pageActions ParticipantsListR = return ] pageActions (LmsR sid qsh) = return [ NavPageActionPrimary + { navLink = defNavLink MsgMenuLmsLearners $ LmsLearnersR sid qsh + , navChildren = + [ defNavLink MsgMenuLmsDirectDownload $ LmsLearnersDirectR sid qsh + ] + } + , NavPageActionPrimary + { navLink = defNavLink MsgMenuLmsReport $ LmsReportR sid qsh + , navChildren = + [ defNavLink MsgMenuLmsUpload $ LmsReportUploadR sid qsh + , defNavLink MsgMenuLmsDirectUpload $ LmsReportDirectR sid qsh + ] + } + , NavPageActionSecondary { navLink = defNavLink MsgMenuLmsUsers $ LmsUsersR sid qsh - , navChildren = - [ defNavLink MsgMenuLmsDirectDownload $ LmsUsersDirectR sid qsh - ] + -- , navChildren = + -- [ defNavLink MsgMenuLmsDirectDownload $ LmsUsersDirectR sid qsh + -- ] } - , NavPageActionPrimary + , NavPageActionSecondary { navLink = defNavLink MsgMenuLmsUserlist $ LmsUserlistR sid qsh - , navChildren = - [ defNavLink MsgMenuLmsUpload $ LmsUserlistUploadR sid qsh - , defNavLink MsgMenuLmsDirectUpload $ LmsUserlistDirectR sid qsh - ] + -- , navChildren = + -- [ defNavLink MsgMenuLmsUpload $ LmsUserlistUploadR sid qsh + -- , defNavLink MsgMenuLmsDirectUpload $ LmsUserlistDirectR sid qsh + -- ] } - , NavPageActionPrimary + , NavPageActionSecondary { navLink = defNavLink MsgMenuLmsResult $ LmsResultR sid qsh - , navChildren = - [ defNavLink MsgMenuLmsUpload $ LmsResultUploadR sid qsh - , defNavLink MsgMenuLmsDirectUpload $ LmsResultDirectR sid qsh - ] + -- , navChildren = + -- [ defNavLink MsgMenuLmsUpload $ LmsResultUploadR sid qsh + -- , defNavLink MsgMenuLmsDirectUpload $ LmsResultDirectR sid qsh + -- ] } , NavPageActionSecondary { navLink = defNavLink MsgMenuLmsEdit $ LmsEditR sid qsh