Merge pull request #311 from ds-wizard/release/4.27.1

vknaisl · web-flow · commit 57216b9ecf6a · 2026-02-26T16:07:25.000+01:00
Release 4.27.1
diff --git a/registry-public/package.yaml b/registry-public/package.yaml
@@ -1,5 +1,5 @@
 name: registry-public
-version: '4.27.0'
+version: '4.27.1'
 synopsis: Registry Public
 description: Registry Public
 category: Web
diff --git a/registry-server/package.yaml b/registry-server/package.yaml
@@ -1,5 +1,5 @@
 name: registry-server
-version: '4.27.0'
+version: '4.27.1'
 synopsis: Engine Registry
 description: Engine Registry
 category: Web
diff --git a/registry-server/src/Registry/Api/Handler/Swagger/Api.hs b/registry-server/src/Registry/Api/Handler/Swagger/Api.hs
@@ -40,7 +40,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Registry API"
               , _infoDescription = Just "API specification for Registry"
-              , _infoVersion = "4.27.0"
+              , _infoVersion = "4.27.1"
               , _infoLicense =
                   Just $
                     License
diff --git a/shared-common/package.yaml b/shared-common/package.yaml
@@ -1,5 +1,5 @@
 name: shared-common
-version: '4.27.0'
+version: '4.27.1'
 synopsis: Engine Shared
 description: Engine Shared
 category: Web
diff --git a/wizard-public/package.yaml b/wizard-public/package.yaml
@@ -1,5 +1,5 @@
 name: wizard-public
-version: '4.27.0'
+version: '4.27.1'
 synopsis: Wizard Public
 description: Wizard Public
 category: Web
diff --git a/wizard-server/package.yaml b/wizard-server/package.yaml
@@ -1,5 +1,5 @@
 name: wizard-server
-version: '4.27.0'
+version: '4.27.1'
 synopsis: Engine Wizard
 description: Engine Wizard
 category: Web
diff --git a/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs b/wizard-server/src/Wizard/Api/Handler/Swagger/Api.hs
@@ -151,7 +151,7 @@ swagger =
             s._swaggerInfo
               { _infoTitle = "Wizard API"
               , _infoDescription = Just "API specification for Wizard"
-              , _infoVersion = "4.27.0"
+              , _infoVersion = "4.27.1"
               , _infoLicense =
                   Just $
                     License
diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/AlbertEinstein.hs
@@ -57,7 +57,7 @@ userAlbert =
         , "PRJ_FILE_PERM"
         , "PRJ_ACTION_PERM"
         , "PRJ_IMPORTER_PERM"
-        , "PJR_TML_PERM"
+        , "PRJ_TML_PERM"
         , "DOC_TML_READ_PERM"
         , "CFG_PERM"
         , "SUBM_PERM"
diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/NikolaTesla.hs
@@ -34,7 +34,7 @@ userNikola =
         , "PRJ_PERM"
         , "PRJ_ACTION_PERM"
         , "PRJ_IMPORTER_PERM"
-        , "PJR_TML_PERM"
+        , "PRJ_TML_PERM"
         , "DOC_TML_READ_PERM"
         , "SUBM_PERM"
         , "DOC_TML_WRITE_PERM"
diff --git a/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs b/wizard-server/src/Wizard/Database/Migration/Development/User/Data/SystemUser.hs
@@ -31,7 +31,7 @@ userSystem =
         , "PRJ_FILE_PERM"
         , "PRJ_ACTION_PERM"
         , "PRJ_IMPORTER_PERM"
-        , "PJR_TML_PERM"
+        , "PRJ_TML_PERM"
         , "DOC_TML_READ_PERM"
         , "CFG_PERM"
         , "SUBM_PERM"
diff --git a/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs b/wizard-server/src/Wizard/Database/Migration/Production/Migration.hs
@@ -65,6 +65,7 @@ import qualified Wizard.Database.Migration.Production.Migration_0060_knowledgeMo
 import qualified Wizard.Database.Migration.Production.Migration_0061_news.Migration as M_0061
 import qualified Wizard.Database.Migration.Production.Migration_0062_metamodelFix.Migration as M_0062
 import qualified Wizard.Database.Migration.Production.Migration_0063_plugins.Migration as M_0063
+import qualified Wizard.Database.Migration.Production.Migration_0064_prjTmpPerm.Migration as M_0064
 
 migrationDefinitions :: [MigrationDefinition]
 migrationDefinitions =
@@ -131,4 +132,5 @@ migrationDefinitions =
   , M_0061.definition
   , M_0062.definition
   , M_0063.definition
+  , M_0064.definition
   ]
diff --git a/wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs b/wizard-server/src/Wizard/Database/Migration/Production/Migration_0064_prjTmpPerm/Migration.hs
@@ -0,0 +1,23 @@
+module Wizard.Database.Migration.Production.Migration_0064_prjTmpPerm.Migration (
+  definition,
+) where
+
+import Control.Monad.Logger
+import Control.Monad.Reader (liftIO)
+import Data.Pool (Pool, withResource)
+import Database.PostgreSQL.Migration.Entity
+import Database.PostgreSQL.Simple
+
+definition = (meta, migrate)
+
+meta = MigrationMeta {mmNumber = 64, mmName = "Fix Project Template Permissions", mmDescription = "Fix the project template permissions in the user_entity table."}
+
+migrate :: Pool Connection -> LoggingT IO (Maybe Error)
+migrate dbPool = do
+  let sql =
+        "UPDATE user_entity \
+        \SET permissions = array_replace(permissions, 'PJR_TML_PERM', 'PRJ_TML_PERM') \
+        \WHERE 'PJR_TML_PERM' = ANY(permissions);"
+  let action conn = execute_ conn sql
+  liftIO $ withResource dbPool action
+  return Nothing
diff --git a/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs b/wizard-server/src/Wizard/Model/Config/ServerConfigDM.hs
@@ -60,7 +60,7 @@ defaultRoles =
         , "PRJ_ACTION_PERM"
         , "PRJ_FILE_PERM"
         , "PRJ_IMPORTER_PERM"
-        , "PJR_TML_PERM"
+        , "PRJ_TML_PERM"
         , "DOC_TML_READ_PERM"
         , "CFG_PERM"
         , "SUBM_PERM"
@@ -77,7 +77,7 @@ defaultRoles =
         , "PRJ_PERM"
         , "PRJ_ACTION_PERM"
         , "PRJ_IMPORTER_PERM"
-        , "PJR_TML_PERM"
+        , "PRJ_TML_PERM"
         , "DOC_TML_READ_PERM"
         , "SUBM_PERM"
         , "DOC_TML_WRITE_PERM"
