[Node Type] adding team.

src/Gargantext/Database/Config.hs

@@ -45,6 +45,7 @@ nodeTypeId n =
     NodeFolder    -> 2
     NodeFolderPrivate -> 20
     NodeFolderShared  -> 21
+    NodeTeam          -> 210
     NodeFolderPublic  -> 22
     NodeCorpusV3  -> 3
     NodeCorpus    -> 30

src/Gargantext/Database/Schema/Node.hs

@@ -638,6 +638,12 @@ mkNodeWithParent NodeFolderPublic (Just i) uId _ =
     where
       hd = HyperdataFolder . Just . pack $ show EN
 
+mkNodeWithParent NodeTeam (Just i) uId _ = 
+   insertNodesWithParentR (Just i) [node NodeTeam "Team" hd Nothing uId]
+    where
+      hd = HyperdataFolder . Just . pack $ show EN
+
+
 ------------------------------------------------------------------------
 
 

src/Gargantext/Database/Tree.hs

@@ -108,7 +108,7 @@ dbTree rootId = map (\(nId, tId, pId, n) -> DbTreeNode nId tId pId n)
           FROM nodes AS c
 
           INNER JOIN tree AS s ON c.parent_id = s.id
-          WHERE c.typename IN (2,20,21,22,3,5,30,31,40,7,9,90)
+--          WHERE c.typename IN (2,20,21,22,3,5,30,31,40,7,9,90)
         )
     SELECT * from tree;
     |] (Only rootId)

src/Gargantext/Database/Types/Node.hs

@@ -442,7 +442,7 @@ instance Hyperdata HyperData
 -- | Then a Node can be either a Folder or a Corpus or a Document
 data NodeType = NodeUser
               | NodeFolderPrivate
-              | NodeFolderShared
+              | NodeFolderShared | NodeTeam
               | NodeFolderPublic
               | NodeFolder