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