Commit c45116fb authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Node] adding team.

parent dd3c2649
...@@ -99,10 +99,21 @@ settingsBox FolderPrivate = SettingsBox { show: true ...@@ -99,10 +99,21 @@ settingsBox FolderPrivate = SettingsBox { show: true
, Delete] , Delete]
} }
settingsBox FolderShared = SettingsBox { show: true settingsBox Team = SettingsBox { show: true
, edit : false , edit : false
, buttons : [Documentation Team
, SearchBox
, Add [ Corpus
, Folder
, Annuaire
]
, Delete]
}
settingsBox FolderShared = SettingsBox { show: true
, edit : true
, buttons : [Documentation FolderShared , buttons : [Documentation FolderShared
-- , Add [Folder, Team] , Add [Team, FolderShared]
, Delete , Delete
] ]
} }
......
...@@ -162,7 +162,7 @@ instance showNodeType :: Show NodeType where ...@@ -162,7 +162,7 @@ instance showNodeType :: Show NodeType where
show Node = "Node" show Node = "Node"
show Nodes = "Nodes" show Nodes = "Nodes"
show Tree = "NodeTree" show Tree = "NodeTree"
show Team = "Team" show Team = "NodeTeam"
show NodeList = "NodeList" show NodeList = "NodeList"
show Texts = "NodeTexts" show Texts = "NodeTexts"
...@@ -185,7 +185,7 @@ readNodeType "Nodes" = Nodes ...@@ -185,7 +185,7 @@ readNodeType "Nodes" = Nodes
readNodeType "NodeCorpus" = Corpus readNodeType "NodeCorpus" = Corpus
readNodeType "NodeContact" = NodeContact readNodeType "NodeContact" = NodeContact
readNodeType "Tree" = Tree readNodeType "Tree" = Tree
readNodeType "Team" = Team readNodeType "NodeTeam" = Team
readNodeType "NodeList" = NodeList readNodeType "NodeList" = NodeList
readNodeType "NodeTexts" = Texts readNodeType "NodeTexts" = Texts
readNodeType _ = Error readNodeType _ = Error
...@@ -198,8 +198,10 @@ fldr NodeUser true = "fa fa-user-circle-o" ...@@ -198,8 +198,10 @@ fldr NodeUser true = "fa fa-user-circle-o"
fldr FolderPrivate true = "fa fa-lock" fldr FolderPrivate true = "fa fa-lock"
fldr FolderPrivate false = "fa fa-expeditedssl" fldr FolderPrivate false = "fa fa-expeditedssl"
fldr FolderShared true = "fa fa-users" -- "fa fa-share-alt" fldr FolderShared true = "fa fa-share-alt"
fldr FolderShared false = "fa fa-share-alt-square" fldr FolderShared false = "fa fa-share-alt-square"
fldr Team true = "fa fa-users"
fldr Team false = "fa fa-users"
fldr FolderPublic _ = "fa fa-globe" fldr FolderPublic _ = "fa fa-globe"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment