allow re-create-record-data to pass recording records unaltered

This commit is contained in:
Leo Butler 2021-01-21 20:31:28 -06:00
parent def854296e
commit f999148fc4
1 changed files with 3 additions and 2 deletions

View File

@ -255,8 +255,9 @@
(make-recording chanid starttime rec-tbl strms-inf i-frm-nfo rtn-lst)))
(define (re-create-record-data r-d)
(let ((lookup (lambda (key) (assv-ref r-d key))))
(apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list)))))
(if (recording? r-d) r-d
(let ((lookup (lambda (key) (assv-ref r-d key))))
(apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list))))))
(define recording-file-endings3 '("mpg" "mp4" "mkv"))
(define recording-file-endings2 '("ts"))