prpr/webif
1
0
Fork 0
forked from hummypkg/webif
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Display raw programme times, not clipped to the display period.

Browse Source
This commit is contained in:
df 2021-02-18 13:57:33 +00:00
parent 11cfa40d78
commit 3f75333542
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
webif/html/xepg/index.jim
View File

@ -263,6 +263,15 @@ foreach e $records {
if {$es < $le} continue if {$es < $le} continue
set perc [$e percent]
set showing 0
if {$perc > 0 && $perc < 100} { set showing 1 }
set txt [list [cgi_quote_html [$e get name]] "([\
clock format $es -format "%H:%M"] - [\
clock format $ee -format "%H:%M"])[\
expr {$showing? " ($perc%)": ""}]"]
if {$es < $stt} { set es $stt } if {$es < $stt} { set es $stt }
if {$ee > $ett} { set ee $ett } if {$ee > $ett} { set ee $ett }
@ -292,21 +301,6 @@ foreach e $records {
set recopts 1 set recopts 1
if {[$e get series_crid] ne ""} { set recopts 2 } if {[$e get series_crid] ne ""} { set recopts 2 }
set perc [$e percent]
set showing 0
if {$perc > 0 && $perc < 100} { set showing 1 }
set txt "[cgi_quote_html [$e get name]] <span>([\
clock format $es -format "%H:%M"] - [\
clock format $ee -format "%H:%M"])"
if {$showing} { append txt " ($perc%)" }
append txt "</span>"
set htxt "[cgi_quote_html [$e get name]] ([\
clock format $es -format "%H:%M"] - [\
clock format $ee -format "%H:%M"])"
if {$showing} { append hxt " ($perc%)" }
set lbg $bg set lbg $bg
# Set backround if scheduled. 1 1-off, 2 series, 3 recorded, 4 skipped # Set backround if scheduled. 1 1-off, 2 series, 3 recorded, 4 skipped
switch -- [$e scheduled] { switch -- [$e scheduled] {
@ -318,11 +312,11 @@ foreach e $records {
} }
puts "<div class=\"xeprog $lbg\" puts "<div class=\"xeprog $lbg\"
style=\"width: [expr $px - 4]px;\" title=\"$htxt\"> style=\"width: [expr $px - 4]px;\" title=\"[join $txt]\">
<a class=event href=# xs=[$e get service_id] <a class=event href=# xs=[$e get service_id]
xe=[$e get event_id] sch=[$e get sched_type] xe=[$e get event_id] sch=[$e get sched_type]
rec=$recopts>" rec=$recopts>"
puts $txt puts [format "%s <span>%s</span>" {*}$txt]
puts "</a>" puts "</a>"
puts "</div>" puts "</div>"
} }