filter out any recordings in the Deleted group

Do not transcode a recording in the Deleted group.
This commit is contained in:
Leo Butler 2021-01-07 20:28:10 -06:00
parent 61dc6756d6
commit f3c0d86d71
1 changed files with 1 additions and 1 deletions

View File

@ -434,7 +434,7 @@
(map rebuild '(skiplist cutlist))))
(define* (mythconverg-pending-jobs #:optional (days 7))
(let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day;" days))))
(let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day and not(recgroup = 'Deleted');" days))))
(define (parse-basename bn)
(read-from-string (string-split (car (string-split (car bn) #\.)) #\_)))
(cond ((null? basenames)