Merge remote-tracking branch 'origin/452-dev-teams-security' into dev-merge

package.json

@@ -17,9 +17,9 @@
         "clean": "rm -Rf output node_modules",
         "clean-js": "rm -Rf node_modules",
         "clean-ps": "rm -Rf output",
-        "server": "serve dist",
+        "server": "serve -l 8000 dist",
         "server-ssl": "ssl-serve --ssl dist",
-        "build": "spago build && pulp browserify --skip-compile -t dist/bundle.js --src-path output",
+        "build": "spago bundle-app --main Main --to dist/bundle.js",
         "prod": "yarn prod:compile && yarn prod:dce && yarn prod:bundle && yarn prod:pack",
         "prod:compile": "pulp build -- -g corefn",
         "prod:dce": "zephyr -f Main.main",

src/Gargantext/Components/FolderView.purs

@@ -105,6 +105,7 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
                                         , session: props.session
                                         , style: FolderChild
                                         , text: node.name
+                                        , disabled: false
                                         }
 
   makeParentFolder :: TreeNode -> Maybe TreeNode -> Record FolderViewProps -> Array R.Element
@@ -120,9 +121,12 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
       , reload: props.reload
       , session: props.session
       , style: FolderUp
-      , text: root.name
+      , text: "..."
+      , disabled: disabled parent
       }
     ]
+    where
+      disabled { node_type } = if node_type == GT.FolderShared then true else false
   makeParentFolder _ Nothing _ = []
 
   sortFolders :: TreeNode-> TreeNode -> Ordering
@@ -139,6 +143,7 @@ type FolderProps =
   , boxes         :: Boxes
   , parentId      :: Int
   , reload        :: T.Box T2.Reload
+  , disabled      :: Boolean
   )
 
 folder :: R2.Leaf FolderProps
@@ -155,6 +160,7 @@ folderCpt = here.component "folderCpt" cpt where
             , session
             , style
             , text
+            , disabled
             } _ = do
     -- States
     isBoxVisible <- T.useBox false
@@ -197,6 +203,7 @@ folderCpt = here.component "folderCpt" cpt where
         H.button
         { className: "btn btn-primary fv btn"
         , on: { click: \_ -> goToRoute $ route linkId rootId linkNodeType sid }
+        , disabled: disabled
         }
         [
           H.i