allow re-create-record-data to pass recording records unaltered
This commit is contained in:
parent
def854296e
commit
f999148fc4
@ -255,8 +255,9 @@
|
|||||||
(make-recording chanid starttime rec-tbl strms-inf i-frm-nfo rtn-lst)))
|
(make-recording chanid starttime rec-tbl strms-inf i-frm-nfo rtn-lst)))
|
||||||
|
|
||||||
(define (re-create-record-data r-d)
|
(define (re-create-record-data r-d)
|
||||||
(let ((lookup (lambda (key) (assv-ref r-d key))))
|
(if (recording? r-d) r-d
|
||||||
(apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list)))))
|
(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-endings3 '("mpg" "mp4" "mkv"))
|
||||||
(define recording-file-endings2 '("ts"))
|
(define recording-file-endings2 '("ts"))
|
||||||
|
Loading…
Reference in New Issue
Block a user