From e6e9dd9508ac1891787afb321c9d91fd0ad3dae4 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Thu, 30 May 2024 22:55:50 +0200
Subject: [PATCH] add deposit rule for 'draft_with_review' status

---
 inst/actions/zen4R_deposit_record.R | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/inst/actions/zen4R_deposit_record.R b/inst/actions/zen4R_deposit_record.R
index c1cf0920..a689322f 100644
--- a/inst/actions/zen4R_deposit_record.R
+++ b/inst/actions/zen4R_deposit_record.R
@@ -33,6 +33,7 @@ function(action, entity, config){
   update_metadata <- action$getOption("update_metadata")
   update_files <- action$getOption("update_files")
   communities <- action$getOption("communities")
+  if(is.na(communities)) communities = list()
   
   #get_zenodo_metadata
   get_zenodo_metadata = function(){
@@ -413,7 +414,7 @@ function(action, entity, config){
       }
     }
   }
-  print(record_status)
+  config$logger.info(sprintf("Current record status: %s", record_status))
   out <- switch(record_status,
                 "draft" = {
                   config$logger.info(sprintf("Deposit draft record with id '%s' - publish = %s", zenodo_metadata$id, tolower(as.character(publish))))
@@ -422,6 +423,13 @@ function(action, entity, config){
                     publish = FALSE #management of publication later
                   )
                 },
+                "draft_with_review" = {
+                  config$logger.info(sprintf("Deposit draft record with id '%s' - publish = %s", zenodo_metadata$id, tolower(as.character(publish))))
+                  ZENODO$depositRecord(
+                    zenodo_metadata,
+                    publish = FALSE #management of publication later
+                  )
+                },
                 "published" = {
                   switch(strategy,
                    "edition" = {
@@ -537,7 +545,7 @@ function(action, entity, config){
     #If ok, we submit it to the community
     #If the geoflow user is maintainer of this community, make possible to accept immediatly the record
     if(length(communities)>0){
-      if(out$metadata$status == "published"){
+      if(out$status == "published"){
         config$logger.info("Adding published record to communities")
         for(community in communities){
           config$logger.info(sprintf("-> Processing community %s", community))