Merge pull request #1153 from ds-wizard/hotfix/4.6.2

Hotfix 4.6.2

engine-registry/elm/Registry/Data/AppState.elm

@@ -1,6 +1,7 @@
 module Registry.Data.AppState exposing
     ( AppState
     , default
+    , getAppTitle
     , getOrganizationId
     , init
     , setSession
@@ -74,3 +75,8 @@ setSession mbSession appState =
 getOrganizationId : AppState -> Maybe String
 getOrganizationId appState =
     Maybe.map .organizationId appState.session
+
+
+getAppTitle : AppState -> String
+getAppTitle appState =
+    Maybe.withDefault "DSW Registry" appState.appTitle

engine-registry/elm/Registry/Layouts/AppLayout.elm

@@ -6,7 +6,7 @@ import Html exposing (Html, a, div, header, img, li, main_, section, small, text
 import Html.Attributes exposing (class, classList, height, href, src)
 import Html.Events exposing (onClick)
 import Registry.Components.FontAwesome exposing (fas)
-import Registry.Data.AppState exposing (AppState)
+import Registry.Data.AppState as AppState exposing (AppState)
 import Registry.Routes as Routes
 
 
@@ -24,7 +24,7 @@ app : AppState -> AppLayoutConfig msg -> Document msg
 app appState cfg =
     let
         appTitle =
-            Maybe.withDefault "DSW Registry" appState.appTitle
+            AppState.getAppTitle appState
     in
     { title = appTitle
     , body =

engine-registry/elm/Registry/Pages/Homepage.elm

@@ -4,7 +4,7 @@ import Gettext exposing (gettext)
 import Html exposing (Html, a, div, h1, p, span, text)
 import Html.Attributes exposing (class, href)
 import Registry.Components.FontAwesome exposing (fas)
-import Registry.Data.AppState exposing (AppState)
+import Registry.Data.AppState as AppState exposing (AppState)
 import Registry.Routes as Routes
 
 
@@ -14,10 +14,10 @@ view appState =
         [ div [ class "row" ]
             [ div [ class "col-12 mb-5" ]
                 [ h1 [ class "text-center" ]
-                    [ text "DSW Registry"
+                    [ text (AppState.getAppTitle appState)
                     ]
                 , p [ class "text-center" ]
-                    [ text "Customize your experience with prepared content and translations."
+                    [ text (gettext "Customize your experience with prepared content and translations." appState.locale)
                     ]
                 ]
             , div [ class "row" ]

engine-wizard/elm/Wizard/Common/Components/Questionnaire/DefaultQuestionnaireRenderer.elm

@@ -226,7 +226,7 @@ viewResourcePageReferences appState =
 
 viewResourcePageReference : ResourcePageReferenceData -> Html msg
 viewResourcePageReference data =
-    a [ href <| "/book-references/" ++ data.shortUuid, target "_blank" ]
+    a [ href <| "/wizard/book-references/" ++ data.shortUuid, target "_blank" ]
         [ text data.shortUuid ]
 
 

package.json

@@ -1,6 +1,6 @@
 {
   "name": "engine-frontend",
-  "version": "4.6.1",
+  "version": "4.6.2",
   "repository": "https://github.com/ds-wizard/engine-frontend",
   "license": "Apache-2.0",
   "scripts": {