535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
|
(define (rmt:delete-run run-id area-dat)
(rmt:send-receive 'delete-run run-id (list run-id) area-dat))
(define (rmt:delete-old-deleted-test-records area-dat)
(rmt:send-receive 'delete-old-deleted-test-records #f '() area-dat))
(define (rmt:get-runs runpatt count offset keypatts area-dat)
(rmt:send-receive 'get-runs #f (list runpatt count offset keypatts) area-dat))
(define (rmt:get-runs runpatt count offset keypatts area-dat)
(rmt:send-receive 'get-runs #f (list runpatt count offset keypatts) area-dat))
(define (rmt:get-all-run-ids area-dat)
(rmt:send-receive 'get-all-run-ids #f '() area-dat))
(define (rmt:get-prev-run-ids run-id area-dat)
|
<
<
<
|
535
536
537
538
539
540
541
542
543
544
545
546
547
548
|
(define (rmt:delete-run run-id area-dat)
(rmt:send-receive 'delete-run run-id (list run-id) area-dat))
(define (rmt:delete-old-deleted-test-records area-dat)
(rmt:send-receive 'delete-old-deleted-test-records #f '() area-dat))
(define (rmt:get-runs runpatt count offset keypatts area-dat)
(rmt:send-receive 'get-runs #f (list runpatt count offset keypatts) area-dat))
(define (rmt:get-all-run-ids area-dat)
(rmt:send-receive 'get-all-run-ids #f '() area-dat))
(define (rmt:get-prev-run-ids run-id area-dat)
|