Dev

src/cral/model/alfresco/access_status.clj

@@ -0,0 +1,21 @@
+;  CRAL
+;  Copyright (C) 2023-2024 Saidone
+;
+;  This program is free software: you can redistribute it and/or modify
+;  it under the terms of the GNU General Public License as published by
+;  the Free Software Foundation, either version 3 of the License, or
+;  (at your option) any later version.
+;
+;  This program is distributed in the hope that it will be useful,
+;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;  GNU General Public License for more details.
+;
+;  You should have received a copy of the GNU General Public License
+;  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+(ns cral.model.alfresco.access-status)
+
+(def ^:const allowed "ALLOWED")
+(def ^:const denied "DENIED")
+(def ^:const undetermined "UNDETERMINED")

src/cral/model/alfresco/permissions.clj

@@ -0,0 +1,24 @@
+;  CRAL
+;  Copyright (C) 2023-2024 Saidone
+;
+;  This program is free software: you can redistribute it and/or modify
+;  it under the terms of the GNU General Public License as published by
+;  the Free Software Foundation, either version 3 of the License, or
+;  (at your option) any later version.
+;
+;  This program is distributed in the hope that it will be useful,
+;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;  GNU General Public License for more details.
+;
+;  You should have received a copy of the GNU General Public License
+;  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+(ns cral.model.alfresco.permissions)
+
+(def ^:const coordinator "Coordinator")
+(def ^:const collaborator "Collaborator")
+(def ^:const contributor "Contributor")
+(def ^:const editor "Editor")
+(def ^:const consumer "Consumer")
+(def ^:const record-administrator "RecordAdministrator")

src/cral/model/alfresco/ratings.clj

@@ -16,5 +16,5 @@
 
 (ns cral.model.alfresco.ratings)
 
-(def likes "likes")
-(def five-star "fiveStar")
+(def ^:const likes "likes")
+(def ^:const five-star "fiveStar")

src/cral/model/alfresco/roles.clj

@@ -16,7 +16,7 @@
 
 (ns cral.model.alfresco.roles)
 
-(def site-consumer "SiteConsumer")
-(def site-collaborator "SiteCollaborator")
-(def site-contributor "SiteContributor")
-(def site-manager "SiteManager")
+(def ^:const site-consumer "SiteConsumer")
+(def ^:const site-collaborator "SiteCollaborator")
+(def ^:const site-contributor "SiteContributor")
+(def ^:const site-manager "SiteManager")

test/cral/nodes_test.clj

@@ -20,6 +20,8 @@
             [clojure.test :refer :all]
             [cral.api.auth :as auth]
             [cral.api.core.nodes :as nodes]
+            [cral.model.alfresco.permissions :as permissions]
+            [cral.model.alfresco.access-status :as status]
             [cral.config :as c]
             [cral.fixtures :as fixtures]
             [cral.model.alfresco.cm :as cm]
@@ -53,8 +55,8 @@
     ;; update node with new permissions
     (->> (model/map->UpdateNodeBody {:permissions (model/map->Permissions {:is-inheritance-enabled false
                                                                            :locally-set            [{:authority-id  "guest"
-                                                                                                     :name          "Write"
-                                                                                                     :access-status "ALLOWED"}]})})
+                                                                                                     :name          permissions/editor
+                                                                                                     :access-status status/allowed}]})})
          (nodes/update-node ticket created-node-id))
     ; check if new permissions have been applied
     (let [permissions (get-in (nodes/get-node ticket created-node-id (model/map->GetNodeQueryParams {:include "permissions"})) [:body :entry :permissions])]