From 2e178d6c7c11fe06e775c7247a5f76b7366cb4ce Mon Sep 17 00:00:00 2001 From: arturo <alting@hotmail.fr> Date: Wed, 5 Oct 2022 16:32:42 +0200 Subject: [PATCH] [tree] Resolve maplist upload modal issue * #440 --- src/Gargantext/Components/Forest/Tree.purs | 1 + src/Gargantext/Components/Forest/Tree/Node/Action.purs | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Gargantext/Components/Forest/Tree.purs b/src/Gargantext/Components/Forest/Tree.purs index 05dc4798..f0a63d3c 100644 --- a/src/Gargantext/Components/Forest/Tree.purs +++ b/src/Gargantext/Components/Forest/Tree.purs @@ -351,6 +351,7 @@ uploadFile' nodeType fileType fileFormat lang mName contents p@{ boxes: { errors handleRESTError errors eTask $ \task -> liftEffect $ do GAT.insert id task tasks here.log2 "[uploadFile'] UploadFile, uploaded, task:" task + closeBox p uploadArbitraryFile' fileFormat mName blob p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do eTask <- uploadArbitraryFile session id { blob, fileFormat, mName } selection diff --git a/src/Gargantext/Components/Forest/Tree/Node/Action.purs b/src/Gargantext/Components/Forest/Tree/Node/Action.purs index 775526f8..c6551374 100644 --- a/src/Gargantext/Components/Forest/Tree/Node/Action.purs +++ b/src/Gargantext/Components/Forest/Tree/Node/Action.purs @@ -42,7 +42,7 @@ icon (ShareTeam _) = glyphiconNodeAction Share icon (AddContact _) = glyphiconNodeAction Share icon (SharePublic _ ) = glyphiconNodeAction (Publish { subTreeParams : SubTreeParams {showtypes:[], valitypes:[] }}) icon (DoSearch _) = glyphiconNodeAction SearchBox -icon (UploadFile _ _ _ _ _ _ _) = glyphiconNodeAction Upload +icon (UploadFile _ _ _ _ _ _ _) = glyphiconNodeAction Upload icon (UploadArbitraryFile _ _ _ _ ) = glyphiconNodeAction Upload icon UploadFrameCalc = glyphiconNodeAction Upload icon RefreshTree = glyphiconNodeAction Refresh @@ -66,7 +66,7 @@ text (ShareTeam _ ) = "Share with team !" text (AddContact _ ) = "Add contact !" text (SharePublic _ ) = "Publish !" text (DoSearch _ ) = "Launch search !" -text (UploadFile _ _ _ _ _ _ _) = "Upload File !" +text (UploadFile _ _ _ _ _ _ _) = "Upload File !" text (UploadArbitraryFile _ _ _ _) = "Upload arbitrary file !" text UploadFrameCalc = "Upload frame calc" text RefreshTree = "Refresh Tree !" -- 2.21.0