From 2884a82dbfa770b6361efb9a4de0f5c1729ecf45 Mon Sep 17 00:00:00 2001
From: MymsMan <bobbuxton@gmail.com>
Date: Fri, 26 Jun 2020 20:08:21 +0100
Subject: [PATCH] Schedule all epsiodes of series

---
 webif/lib/rsv.class | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/webif/lib/rsv.class b/webif/lib/rsv.class
index 77ec7bd..f920c44 100644
--- a/webif/lib/rsv.class
+++ b/webif/lib/rsv.class
@@ -967,19 +967,29 @@ proc {rsv construct} {event type} {
 		set args(szFPBRecPath)		"$args(szevtname)"
 		set events {}
 		set seen {}
+		set now [clock seconds]
 		set progs [lmap i [\
 		    epg dbfetch dump -scrid [$event get series_crid]  \
 		    -sort start] {
 			if {[set ecrid [$i get event_crid]] eq ""} continue
-			if {$ecrid in $seen} continue
-			lappend seen $ecrid
-			if {[$i get start] < [$event get start]} {
+
+			if {[$i end] < $now} {
 				set args(usLastRecordedEvtId) [$i get event_id]
 				continue
 			}
+			if {$ecrid in $seen} continue
+			lappend seen $ecrid
 			lappend events [rsv mkaul $i]
 			list "1$::ccrid$ecrid"
 		}]
+		# set 1st event to record
+		binary scan [string range [lindex $events 0] 0 15] \
+		    iiii service_id start end event_id
+		#puts	"$service_id $start [clock format $end] $event_id"
+		set args(hsvc) $service_id
+		set args(nsttime)  $start
+		set args(usevtid) $event_id
+		set args(nduration)	$($end-$start)
 		set args(szEventToRecord)	 "[join $progs "|"]|"
 		set args(aulEventToRecordInfo)	[join $events ""]
 	}