[DSW-2146] Fix links to questions in questionnaires

ds-wizard · Dec 15, 2023 · 4e10d07 · 4e10d07
1 parent 8220458
commit 4e10d07
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/engine-wizard/elm/Wizard/Common/AppState.elm b/engine-wizard/elm/Wizard/Common/AppState.elm
@@ -1,6 +1,7 @@
 module Wizard.Common.AppState exposing
     ( AppState
     , acceptCookies
+    , getClientUrlRoot
     , getUserRole
     , init
     , isFullscreen
@@ -128,6 +129,11 @@ getUserRole =
     Maybe.unwrap "" .role << .user << .config
 
 
+getClientUrlRoot : AppState -> String
+getClientUrlRoot appState =
+    String.replace "/wizard" "" appState.clientUrl
+
+
 setCurrentTime : AppState -> Time.Posix -> AppState
 setCurrentTime appState time =
     { appState | currentTime = time }

diff --git a/engine-wizard/elm/Wizard/Common/Components/Questionnaire.elm b/engine-wizard/elm/Wizard/Common/Components/Questionnaire.elm
@@ -965,7 +965,7 @@ update msg wrapMsg mbSetFullscreenMsg appState ctx model =
                     Routing.toUrl appState <|
                         Routes.projectsDetailQuestionnaire model.uuid (Just (String.join "." path))
             in
-            ( appState.seed, { model | recentlyCopied = True }, Copy.copyToClipboard (appState.clientUrl ++ route) )
+            ( appState.seed, { model | recentlyCopied = True }, Copy.copyToClipboard (AppState.getClientUrlRoot appState ++ route) )
 
         ClearRecentlyCopied ->
             wrap { model | recentlyCopied = False }