REDCAP: Added event and instrument args to redcap-delete-record

ddunsmuir · ddunsmuir · commit 4bd7958c5163 · 2025-05-21T15:17:07.000-07:00
diff --git a/modules/redcap/redcap.scm b/modules/redcap/redcap.scm
@@ -716,8 +716,12 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   )
 )
 
-(define (redcap-delete-records host token records)
- (let*  ((request  (string-append  "token=" token "&content=record&action=delete&returnFormat=json"))
+(define (redcap-delete-records host token records . xargs)
+ (let*  ((instrument (redcap:arg 'instrument xargs #f))
+         (event (redcap:arg 'event xargs #f))
+         (request  (string-append  "token=" token "&content=record&action=delete&returnFormat=json"
+                                   (if instrument (string-append "&instrument=" instrument) "")
+                                   (if event (string-append "&event=" event) "")))
          (recordstr (if (pair? records)
            (let loop ((i 0) (str ""))
              (if (= i (length records)) str

Original file line number	Diff line number	Diff line change
`@@ -716,8 +716,12 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.`
`716`	`716`	`)`
`717`	`717`	`)`
`718`	`718`
`719`		`-(define (redcap-delete-records host token records)`
`720`		`- (let* ((request (string-append "token=" token "&content=record&action=delete&returnFormat=json"))`
	`719`	`+(define (redcap-delete-records host token records . xargs)`
	`720`	`+ (let* ((instrument (redcap:arg 'instrument xargs #f))`
	`721`	`+ (event (redcap:arg 'event xargs #f))`
	`722`	`+ (request (string-append "token=" token "&content=record&action=delete&returnFormat=json"`
	`723`	`+ (if instrument (string-append "&instrument=" instrument) "")`
	`724`	`+ (if event (string-append "&event=" event) "")))`
`721`	`725`	`(recordstr (if (pair? records)`
`722`	`726`	`(let loop ((i 0) (str ""))`
`723`	`727`	`(if (= i (length records)) str`