forked from hummypkg/webif
Deprecate {epg fetch} for {epg dbfetch}
This commit is contained in:
parent
98dc8bdfd1
commit
3cee225331
@ -42,12 +42,12 @@ if {$searchfull} { set cmd "searchall" }
|
||||
|
||||
set dedup 0
|
||||
if {$ct > 0 } {
|
||||
set records [epg fetch dump -type $ct]
|
||||
set records [epg dbfetch dump -type $ct]
|
||||
if {[[settings] genrededup]} { set dedup 1 }
|
||||
} elseif {$crid ne ""} {
|
||||
set records [epg fetch dump -crid $crid]
|
||||
set records [epg dbfetch dump -crid $crid]
|
||||
} elseif {$scrid ne ""} {
|
||||
set records [epg fetch dump -scrid $scrid]
|
||||
set records [epg dbfetch dump -scrid $scrid]
|
||||
} elseif {$searchterm ne ""} {
|
||||
set records [epg dbfetch $cmd -term $searchterm]
|
||||
} else {
|
||||
|
@ -32,7 +32,7 @@ if {$::qepg} {
|
||||
}
|
||||
} else {
|
||||
require channelsort
|
||||
set records [channelsort [epg fetch dump -trange "$now:$then"]]
|
||||
set records [channelsort [epg dbfetch dump -trange "$now:$then"]]
|
||||
}
|
||||
set got [clock milliseconds]
|
||||
|
||||
|
@ -11,7 +11,7 @@ set eid [cgi_get eid 0]
|
||||
|
||||
mheader
|
||||
|
||||
set record [lindex [epg fetch dump -service $sid -event $eid] 0]
|
||||
set record [lindex [epg dbfetch dump -service $sid -event $eid] 0]
|
||||
$record get_channel_info
|
||||
set others [$record othertimes]
|
||||
|
||||
|
@ -20,7 +20,6 @@ puts "</li>"
|
||||
set cmd search
|
||||
if {$full} { set cmd searchall }
|
||||
if {$term ne ""} {
|
||||
#set records [epg fetch $cmd -extra $term]
|
||||
set records [epg dbfetch $cmd -term $term]
|
||||
} else {
|
||||
set records {}
|
||||
|
@ -16,7 +16,7 @@ foreach slot [split $slots ","] {
|
||||
puts "SLOT: $slot"
|
||||
set event [rsv slot $slot]
|
||||
|
||||
lassign [epg fetch dump -service $xservice -event $xevent] epg
|
||||
lassign [epg dbfetch dump -service $xservice -event $xevent] epg
|
||||
|
||||
if {$epg eq ""} {
|
||||
puts "!Cannot find event in EPG."
|
||||
|
@ -84,7 +84,7 @@ if {$::qepg} {
|
||||
set records [epg dbfetch dump {*}$args]
|
||||
} else {
|
||||
require channelsort
|
||||
set records [channelsort [epg fetch dump -trange "$stt:$ett"]]
|
||||
set records [channelsort [epg dbfetch dump -trange "$stt:$ett"]]
|
||||
}
|
||||
set got [clock milliseconds]
|
||||
|
||||
|
@ -300,7 +300,7 @@ epg method cell {} {
|
||||
|
||||
epg method next {} {
|
||||
set tm $($start + $duration + 60)
|
||||
set nextlist [epg fetch dump -service $service_id -time $tm]
|
||||
set nextlist [epg dbfetch dump -service $service_id -time $tm]
|
||||
|
||||
if {[llength nextlist] > 0} {
|
||||
return [lindex $nextlist 0]
|
||||
@ -311,7 +311,7 @@ epg method next {} {
|
||||
|
||||
epg method previous {} {
|
||||
set tm $($start - 60)
|
||||
set prevlist [epg fetch dump -service $service_id -time $tm]
|
||||
set prevlist [epg dbfetch dump -service $service_id -time $tm]
|
||||
|
||||
if {[llength prevlist] > 0} {
|
||||
return [lindex $prevlist 0]
|
||||
@ -324,7 +324,7 @@ epg method recommended {} {
|
||||
set rec ""
|
||||
if {$rec_crid ne ""} {
|
||||
catch { set rec [lindex [
|
||||
epg fetch dump -crid $rec_crid] 0] }
|
||||
epg dbfetch dump -crid $rec_crid] 0] }
|
||||
}
|
||||
return $rec
|
||||
}
|
||||
@ -333,7 +333,7 @@ epg method othertimes {} {
|
||||
if {$event_crid eq ""} { return "" }
|
||||
|
||||
set others ""
|
||||
foreach other [epg fetch dump -crid $event_crid] {
|
||||
foreach other [epg dbfetch dump -crid $event_crid] {
|
||||
if {[$other get service_id] == $service_id &&
|
||||
[$other get event_id] == $event_id} { continue }
|
||||
lappend others $other
|
||||
@ -490,6 +490,8 @@ proc {epg dbfetch} {mode args} {
|
||||
return $records
|
||||
}
|
||||
|
||||
# This function is deprecated in favour of {epg dbfetch} and should not be
|
||||
# used.
|
||||
proc {epg fetch} {mode args} {
|
||||
set records ""
|
||||
foreach line [split [epg exec $mode {*}$args] "\n"] {
|
||||
|
Loading…
Reference in New Issue
Block a user