Fix {ts genrelist}

This commit is contained in:
HummyPkg 2018-01-31 00:09:02 +00:00
parent 3193ca00ab
commit 26150bda5a
2 changed files with 6 additions and 4 deletions

View File

@ -1,7 +1,7 @@
Package: webif
Priority: optional
Section: web
Version: 1.4.2-10
Version: 1.4.2-11
Architecture: mipsel
Maintainer: af123@hpkg.tv
Depends: tcpfix,webif-channelicons(>=1.1.25),lighttpd(>=1.4.39-1),jim(>=0.77),jim-oo(>=0.77),jim-sqlite3(>=0.77),jim-cgi(>=0.7-1),jim-binary(>=0.76),service-control(>=2.3),busybox(>=1.20.2-1),lsof(>=4.87),epg(>=1.2.8),hmt(>=2.0.10),ssmtp,cron-daemon(>=1.18.3-3),at(>=3.1.18),anacron,trm(>=1.1),openssl-command,nicesplice,id3v2,file,rsvsync(>=1.1.11),webif-charts(>=1.2-1),stripts(>=1.3.1),tmenu(>=1.21-2),ffmpeg(>=2.8),id3v2,multienv(>=1.6),tcpping(>=1.1),e2fsprogs,wireless-tools(>=29-1),dbupdate,recmon(>=2.0.7),hwctl,nugget(>=0.95),sqlite3(>=3.15.1),jim-xconv

View File

@ -814,8 +814,10 @@ ts method genre_info {} {
proc {ts genrelist} {} {
require epg.class
return [lmap {k v} $::epg::genrelist {
function "$($k << 4) $v"
}]
set glist {}
foreach {k v} $::epg::genrelist {
lappend glist $($k << 4) $v
}
return $glist
}