
Originally Posted by
SteveT
Please use at your own risk. I have tested this on my systems, but I'd like some feedback from folks with other software versions. I'd also like any suggestions on how to make this more useful.
Do you need to list the TIVOR entries?
I modified code as to not list TIVOR entires since they will not override set recordings, and I would be concerned that a no-rerecord on TIVOR would mean no guide data download for an extended period of time. I am sure there is a better way to accomplish this but here is what I did. I tied this in with tivoweb.cfg ShowTivorEntries setting and code. Quick test on my machine as worked as planned.
Code:
RetryTransaction {
set rec [db $db openid $fsid ]
set creason [dbobj $rec get CancelReason]
set canceldate [dbobj $rec get CancelDate]
set canceldatestr [clock format [expr $canceldate * 86400] -format "%1m/%1d/%Y"]
set show [dbobj $rec get Showing]
set station [dbobj $show get Station]
set callsign [dbobj $station get CallSign]
norerecord_showinfo $show inf
set id [dbobj $inf(program) get TmsId]
set id2 [dbobj $inf(program) fsid]
}
Code:
if { $callsign != "TIVOR" || $::conf(ShowTivorEntries) == 1 } {
set td_keep [td [html_form_checkbox "cb_keep_$fsid" ""]]
set td_rmv [td [html_form_checkbox "cb_rmv_$fsid" ""]]
puts $chan [tr "" [td $canceldatestr] [td $inf(oad)] [td $inf(date)] [td $inf(title)] [td $inf(episode)] [td $reason] $td_keep $td_rmv ]
incr numlisted
}