fix links in tree

src/Gargantext/Components/FacetsTable.purs

@@ -26,7 +26,7 @@ import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Components.Search.Types (Category(..), CategoryQuery(..), favCategory, decodeCategory, putCategories)
 import Gargantext.Components.Table as T
 import Gargantext.Routes (SessionRoute(Search,NodeAPI))
-import Gargantext.Sessions (Session)
+import Gargantext.Sessions (Session, sessionId)
 import Gargantext.Types (NodeType(..), OrderBy(..), NodePath(..))
 import Gargantext.Utils (toggleSet)
 import Gargantext.Utils.DecodeMaybe ((.|))
@@ -289,7 +289,7 @@ pageCpt = R.staticComponent "G.C.FacetsTable.Page" cpt
         isDeleted (DocumentsView {id}) = Set.member id (fst deletions).deleted
         pairUrl (Pair {id,label})
           | id > 1 = H.a { href, target: "blank" } [ H.text label ]
-            where href = url session $ NodePath NodeContact (Just id)
+            where href = url session $ NodePath (sessionId session) NodeContact (Just id)
           | otherwise = H.text label
         comma = H.span {} [ H.text ", " ]
         rows = row <$> filter (not <<< isDeleted) documents

src/Gargantext/Components/Tree.purs

@@ -31,7 +31,7 @@ import Gargantext.Ends (Frontends, url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as Routes
 import Gargantext.Routes (AppRoute, SessionRoute(..))
-import Gargantext.Sessions (Session)
+import Gargantext.Sessions (Session, sessionId)
 import Gargantext.Types (class ToQuery, toQuery, NodeType(..), NodePath(..), readNodeType)
 import Gargantext.Utils (id)
 import Gargantext.Utils.Reactix as R2
@@ -228,7 +228,7 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p []
 
       pure $ H.span (dropProps droppedFile isDragOver)
         [ folderIcon folderOpen
-        , H.a { href: (url frontends (NodePath nodeType (Just id)))
+        , H.a { href: (url frontends (NodePath (sessionId session) nodeType (Just id)))
               , style: {marginLeft: "22px"}
               }
           [ nodeText {isSelected: (mCorpusId mCurrentRoute) == (Just id), name:name'} ]

src/Gargantext/Pages/Annuaire.purs

@@ -9,7 +9,7 @@ import Effect.Aff (Aff)
 import Gargantext.Components.Table as T
 import Gargantext.Ends (url)
 import Gargantext.Routes (SessionRoute(..))
-import Gargantext.Sessions (Session)
+import Gargantext.Sessions (Session, sessionId)
 import Gargantext.Types (NodePath(..), NodeType(..))
 import Gargantext.Config.REST (get)
 import Gargantext.Hooks.Loader (useLoader)
@@ -113,7 +113,7 @@ contactCells :: Session -> Maybe Contact -> Array R.Element
 contactCells session = maybe [] render
   where
     render (Contact { id, hyperdata : (HyperdataContact contact@{who: who, ou:ou} ) }) =
-      let nodepath = NodePath NodeContact (Just id)
+      let nodepath = NodePath (sessionId session) NodeContact (Just id)
           href = url session nodepath in
       [ H.text ""
       , H.a { href, target: "blank" } [ H.text $ maybe "name" identity contact.title ]

src/Gargantext/Types.purs

@@ -252,10 +252,10 @@ type ChartOpts =
   -- , limit   :: Maybe Limit
   }
 
-data NodePath = NodePath NodeType (Maybe Id)
+data NodePath = NodePath SessionId NodeType (Maybe Id)
 
 nodePath :: NodePath -> String
-nodePath (NodePath t i) = nodeTypePath t <> id
+nodePath (NodePath s t i) = nodeTypePath t <> "/" <> show s <> id
   where id = maybe "" (\j -> "/" <> show j) i
 
 data ChartType = Histo | Scatter | ChartPie | ChartTree