Fix saving preview values in KM Editor

ds-wizard · Dec 17, 2024 · 72d5ceb · 72d5ceb
1 parent 8f55dad
commit 72d5ceb
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 2 deletions.
diff --git a/engine-wizard/elm/Wizard/KMEditor/Editor/Common/EditorBranch.elm b/engine-wizard/elm/Wizard/KMEditor/Editor/Common/EditorBranch.elm
@@ -20,14 +20,15 @@ module Wizard.KMEditor.Editor.Common.EditorBranch exposing
     , isQuestionDeletedInHierarchy
     , isReachable
     , setActiveEditor
+    , setReplies
     , sortDeleted
     , treeCollapseAll
     , treeExpandAll
     , treeIsNodeOpen
     , treeSetNodeOpen
     )
 
-import Dict
+import Dict exposing (Dict)
 import Gettext exposing (gettext)
 import List.Extra as List
 import Maybe.Extra as Maybe
@@ -75,6 +76,7 @@ import Shared.Data.KnowledgeModel.Reference as Reference exposing (Reference)
 import Shared.Data.KnowledgeModel.ResourceCollection exposing (ResourceCollection)
 import Shared.Data.KnowledgeModel.ResourcePage exposing (ResourcePage)
 import Shared.Data.KnowledgeModel.Tag exposing (Tag)
+import Shared.Data.QuestionnaireDetail.Reply exposing (Reply)
 import Shared.RegexPatterns as RegexPatterns
 import Shared.Utils exposing (flip)
 import String.Extra as String
@@ -124,6 +126,15 @@ init appState branch mbEditorUuid =
         |> computeWarnings appState
 
 
+setReplies : Dict String Reply -> EditorBranch -> EditorBranch
+setReplies replies editorBranch =
+    let
+        branch =
+            editorBranch.branch
+    in
+    { editorBranch | branch = { branch | replies = replies } }
+
+
 getEditUuid : String -> EditorBranch -> Maybe Uuid
 getEditUuid entityUuidString editorBranch =
     let

diff --git a/engine-wizard/elm/Wizard/KMEditor/Editor/Update.elm b/engine-wizard/elm/Wizard/KMEditor/Editor/Update.elm
@@ -487,7 +487,13 @@ handleWebSocketMsg websocketMsg appState model =
                                 ( newModel, _ ) =
                                     removeSavingActionUuid event.uuid model
                             in
-                            ( appState.seed, newModel, Cmd.none )
+                            ( appState.seed
+                            , { newModel
+                                | branchModel = ActionResult.map (EditorBranch.setReplies event.replies) newModel.branchModel
+                                , previewModel = Preview.setReplies event.replies newModel.previewModel
+                              }
+                            , Cmd.none
+                            )
 
                 WebSocketServerAction.Error _ ->
                     ( appState.seed, { model | error = True }, Cmd.none )