From b193dc990f569db5d4887bedccb9e3a8cc46b9d9 Mon Sep 17 00:00:00 2001 From: Jean-Christophe Jameux Date: Thu, 8 Sep 2022 12:10:09 +0200 Subject: [PATCH] =?UTF-8?q?On=20avance=20Je=20dois=20r=C3=A9=C3=A9crire=20?= =?UTF-8?q?le=20content=20des=20BranchingScenario,=20il=20manque=20le=20fa?= =?UTF-8?q?it=20que=20c'est=20une=20liste=20!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/GenerateurH5P.elm | 34 ++++++++++++++++++---------------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm index a132762..0de5f58 100644 --- a/src/GenerateurH5P.elm +++ b/src/GenerateurH5P.elm @@ -587,13 +587,16 @@ encodedBranchingScenarioContentTypeMetadata branchingScenarioContentTypeMetadata encodedBranchingScenarioContentTypeParams : BranchingScenarioContentTypeParams -> E.Value encodedBranchingScenarioContentTypeParams branchingScenarioContentTypeParams = - case branchingScenarioContentTypeParams of - CoursePresentationH5P x -> - encodedCoursePresentation x + let + f x = + case branchingScenarioContentTypeParams of + CoursePresentationH5P p -> + encodedCoursePresentation p - --TODO - _ -> - E.object [] + _ -> + E.object [] + in + f branchingScenarioContentTypeParams nouveauBranchingScenario = @@ -622,8 +625,8 @@ nouveauBranchingScenario = , backButtonText = "Revenir en arrière" , proceedButtonText = "Continuer" , disableProceedButtonText = "Jouer la vidéo de nouveau" - , replayButtonText = "Votre note:" - , scoreText = "Votre note:" + , replayButtonText = "Votre note :" + , scoreText = "Votre note :" , fullscreenAria = "Plein écran" } , content = [] @@ -1428,11 +1431,10 @@ type H5pTree fromH5pTree tree = case tree of H5pTree BranchingScenarioContext title subTrees -> - BranchingScenarioH5P - (nouveauBranchingScenario - |> withMap startScreenField startScreenSubtitleField title - |> .with contentField (L.map fromBranchingScenario subTrees) - ) + nouveauBranchingScenario + |> withMap startScreenField startScreenSubtitleField title + |> .with contentField (L.map fromBranchingScenario subTrees) + |> BranchingScenarioH5P H5pTree CoursePresentationContext title subTrees -> CoursePresentationH5P nouveauCoursePresentation @@ -1476,9 +1478,9 @@ fromBranchingScenario subTree = , metadata = { contentType = "Branching Question" , license = "U" - , title = "Untitled Branching Question" + , title = title } - , params = CoursePresentationH5P nouveauCoursePresentation + , params = fromH5pTree subTree , subContentId = uuid 1 } } @@ -1495,7 +1497,7 @@ fromBranchingScenario subTree = , license = "U" , title = "Untitled Branching Question" } - , params = CoursePresentationH5P nouveauCoursePresentation + , params = fromH5pTree subTree , subContentId = uuid 1 } }