ds-wizard · janslifka · Jan 14, 2025 · Jan 14, 2025 · Jan 14, 2025
diff --git a/engine-shared/elm/Shared/Auth/Permission.elm b/engine-shared/elm/Shared/Auth/Permission.elm
@@ -10,6 +10,7 @@ module Shared.Auth.Permission exposing
     , packageManagementWrite
     , questionnaire
     , questionnaireAction
+    , questionnaireFile
     , questionnaireImporter
     , questionnaireTemplate
     , settings
@@ -87,6 +88,11 @@ questionnaireImporter =
     "QTN_IMPORTER_PERM"
 
 
+questionnaireFile : String
+questionnaireFile =
+    "QTN_FILE_PERM"
+
+
 settings : String
 settings =
     "CFG_PERM"

diff --git a/engine-shared/elm/Shared/Auth/Role.elm b/engine-shared/elm/Shared/Auth/Role.elm
@@ -1,5 +1,6 @@
 module Shared.Auth.Role exposing
     ( admin
+    , dataSteward
     , options
     , researcher
     , switch

diff --git a/engine-shared/elm/Shared/Data/UserInfo.elm b/engine-shared/elm/Shared/Data/UserInfo.elm
@@ -2,6 +2,7 @@ module Shared.Data.UserInfo exposing
     ( UserInfo
     , decoder
     , isAdmin
+    , isDataSteward
     , toUserSuggestion
     )
 
@@ -43,6 +44,11 @@ isAdmin =
     Maybe.map (.role >> (==) Role.admin) >> Maybe.withDefault False
 
 
+isDataSteward : Maybe UserInfo -> Bool
+isDataSteward =
+    Maybe.map (.role >> (==) Role.dataSteward) >> Maybe.withDefault False
+
+
 toUserSuggestion : UserInfo -> UserSuggestion
 toUserSuggestion userInfo =
     { uuid = userInfo.uuid

diff --git a/engine-wizard/elm/Wizard/Common/Feature.elm b/engine-wizard/elm/Wizard/Common/Feature.elm
@@ -9,6 +9,8 @@ module Wizard.Common.Feature exposing
     , documentTemplatesImport
     , documentTemplatesView
     , documentsView
+    , isAdmin
+    , isDataSteward
     , isDefaultLanguage
     , knowledgeModelEditorCancelMigration
     , knowledgeModelEditorContinueMigration
@@ -52,6 +54,7 @@ module Wizard.Common.Feature exposing
     , projectCreateMigration
     , projectDelete
     , projectDocumentsView
+    , projectFiles
     , projectImporters
     , projectMetrics
     , projectOpen
@@ -379,6 +382,15 @@ projectCommentPrivate appState questionnaire =
 
 
 
+-- Project Files
+
+
+projectFiles : AppState -> Bool
+projectFiles =
+    adminOr Perm.questionnaireFile
+
+
+
 -- Project Actions
 
 
@@ -557,6 +569,11 @@ dev appState =
 -- Helpers
 
 
+isDataSteward : AppState -> Bool
+isDataSteward appState =
+    UserInfo.isDataSteward appState.config.user
+
+
 isAdmin : AppState -> Bool
 isAdmin appState =
     UserInfo.isAdmin appState.config.user

diff --git a/engine-wizard/elm/Wizard/Common/Menu/View.elm b/engine-wizard/elm/Wizard/Common/Menu/View.elm
@@ -67,6 +67,7 @@ type alias GroupItemData =
     , id : String
     , route : Route
     , isActive : Route -> Bool
+    , isVisible : AppState -> Bool
     }
 
 
@@ -100,11 +101,13 @@ menuItems appState =
               , id = "knowledge-models-list"
               , route = Routes.knowledgeModelsIndex
               , isActive = Routes.isKnowledgeModelsIndex
+              , isVisible = always True
               }
             , { title = gettext "Editors" appState.locale
               , id = "knowledge-models-editors"
               , route = Routes.kmEditorIndex
               , isActive = Routes.isKmEditorIndex
+              , isVisible = always True
               }
             ]
         }
@@ -120,11 +123,13 @@ menuItems appState =
               , id = "documents-list"
               , route = Routes.documentTemplatesIndex
               , isActive = Routes.isDocumentTemplatesIndex
+              , isVisible = always True
               }
             , { title = gettext "Editors" appState.locale
               , id = "document-editors"
               , route = Routes.documentTemplateEditorsIndex
               , isActive = Routes.isDocumentTemplateEditorsIndex
+              , isVisible = always True
               }
             ]
         }
@@ -134,46 +139,48 @@ menuItems appState =
         , id = "projects"
         , route = Routes.projectsIndex appState
         , isActive = Routes.isProjectsIndex
-        , isVisible = \a -> Feature.projectsView a && not (Feature.projectImporters a)
+        , isVisible = \a -> not (Feature.isDataSteward a || Feature.isAdmin a)
         }
     , MenuGroup
         { title = gettext "Projects" appState.locale
         , icon = faSetFw "menu.projects" appState
         , id = "projects"
         , route = Routes.projectsIndex appState
         , isActive = Routes.isProjectSubroute
-        , isVisible = \a -> Feature.projectsView a && Feature.projectImporters a
+        , isVisible = \a -> Feature.isDataSteward a || Feature.isAdmin a
         , items =
             [ { title = gettext "List" appState.locale
               , id = "projects-list"
               , route = Routes.projectsIndex appState
               , isActive = Routes.isProjectsIndex
+              , isVisible = Feature.projectsView
               }
             , { title = gettext "Files" appState.locale
               , id = "projects-files"
               , route = Routes.projectFilesIndex
               , isActive = Routes.isProjectFilesIndex
+              , isVisible = Feature.projectFiles
+              }
+            , { title = gettext "Documents" appState.locale
+              , id = "documents"
+              , route = Routes.documentsIndex
+              , isActive = Routes.isDocumentsIndex
+              , isVisible = Feature.documentsView
               }
             , { title = gettext "Actions" appState.locale
               , id = "projects-actions"
               , route = Routes.projectActionsIndex
               , isActive = Routes.isProjectActionsIndex
+              , isVisible = always False
               }
             , { title = gettext "Importers" appState.locale
               , id = "projects-importers"
               , route = Routes.projectImportersIndex
               , isActive = Routes.isProjectImportersIndex
+              , isVisible = Feature.projectImporters
               }
             ]
         }
-    , MenuItem
-        { title = gettext "Documents" appState.locale
-        , icon = faSetFw "menu.documents" appState
-        , id = "documents"
-        , route = Routes.documentsIndex
-        , isActive = Routes.isDocumentsIndex
-        , isVisible = Feature.documentsView
-        }
     , MenuGroup
         { title = gettext "Dev" appState.locale
         , icon = faSetFw "menu.dev" appState
@@ -186,11 +193,13 @@ menuItems appState =
               , id = "dev-operations"
               , route = Routes.devOperations
               , isActive = Routes.isDevOperations
+              , isVisible = always True
               }
             , { title = gettext "Persistent Commands" appState.locale
               , id = "dev-persistent-commands"
               , route = Routes.persistentCommandsIndex
               , isActive = Routes.isPersistentCommandsIndex
+              , isVisible = always True
               }
             ]
         }
@@ -206,6 +215,7 @@ menuItems appState =
             , id = "system-settings"
             , route = Routes.settingsDefault
             , isActive = Routes.isSettingsRoute
+            , isVisible = always True
             }
                 :: (if Admin.isEnabled appState.config.admin then
                         []
@@ -215,13 +225,15 @@ menuItems appState =
                           , id = "users"
                           , route = Routes.usersIndex
                           , isActive = Routes.isUsersIndex
+                          , isVisible = always True
                           }
                         ]
                    )
                 ++ [ { title = gettext "Locales" appState.locale
                      , id = "system-locales"
                      , route = Routes.localesIndex
                      , isActive = Routes.isLocalesRoute
+                     , isVisible = always True
                      }
                    ]
         }
@@ -411,12 +423,17 @@ defaultMenuItem model item =
         MenuGroup menuGroup ->
             let
                 viewGroupItem groupItem =
-                    li [ classList [ ( "active", groupItem.isActive model.appState.route ) ] ]
-                        [ linkTo model.appState
-                            groupItem.route
-                            []
-                            [ text groupItem.title ]
-                        ]
+                    if groupItem.isVisible model.appState then
+                        Just <|
+                            li [ classList [ ( "active", groupItem.isActive model.appState.route ) ] ]
+                                [ linkTo model.appState
+                                    groupItem.route
+                                    []
+                                    [ text groupItem.title ]
+                                ]
+
+                    else
+                        Nothing
 
                 submenuClass =
                     if not model.appState.session.sidebarCollapsed && menuGroup.isActive model.appState.route then
@@ -457,7 +474,7 @@ defaultMenuItem model item =
                     , span [ class "sidebar-link" ] [ text menuGroup.title ]
                     ]
                 , div ([ class "submenu", class submenuClass, class submenuExtraClass ] ++ submenuStyle)
-                    [ ul [] (submenuHeading :: List.map viewGroupItem menuGroup.items) ]
+                    [ ul [] (submenuHeading :: List.filterMap viewGroupItem menuGroup.items) ]
                 ]
 
         MenuItem menuItem ->

diff --git a/engine-wizard/elm/Wizard/Common/Provisioning/DefaultIconSet.elm b/engine-wizard/elm/Wizard/Common/Provisioning/DefaultIconSet.elm
@@ -118,7 +118,6 @@ iconSet =
         , ( "menu.collapse", "fas fa-angle-double-left" )
         , ( "menu.dashboard", "fas fa-home" )
         , ( "menu.dev", "fas fa-laptop-code" )
-        , ( "menu.documents", "fas fa-layer-group" )
         , ( "menu.knowledgeModels", "fas fa-sitemap" )
         , ( "menu.language", "fas fa-language" )
         , ( "menu.logout", "fas fa-sign-out-alt" )

diff --git a/engine-wizard/elm/Wizard/Routes.elm b/engine-wizard/elm/Wizard/Routes.elm
@@ -747,21 +747,23 @@ projectsImport uuid importerId =
 
 isProjectSubroute : Route -> Bool
 isProjectSubroute route =
-    case route of
-        ProjectsRoute _ ->
-            True
+    isDocumentsIndex route
+        || (case route of
+                ProjectsRoute _ ->
+                    True
 
-        ProjectActionsRoute _ ->
-            True
+                ProjectActionsRoute _ ->
+                    True
 
-        ProjectImportersRoute _ ->
-            True
+                ProjectImportersRoute _ ->
+                    True
 
-        ProjectFilesRoute _ ->
-            True
+                ProjectFilesRoute _ ->
+                    True
 
-        _ ->
-            False
+                _ ->
+                    False
+           )
 
 
 projectsFileDownload : Uuid -> Uuid -> Route

diff --git a/package-lock.json b/package-lock.json
diff --git a/package.json b/package.json
@@ -1,6 +1,6 @@
 {
   "name": "engine-frontend",
-  "version": "4.14.0",
+  "version": "4.14.1",
   "repository": "https://github.com/ds-wizard/engine-frontend",
   "license": "Apache-2.0",
   "scripts": {