From 26150bda5aee3277558239ad3282caab63e00ec4 Mon Sep 17 00:00:00 2001
From: HummyPkg <af123@hummypkg.org.uk>
Date: Wed, 31 Jan 2018 00:09:02 +0000
Subject: [PATCH] Fix {ts genrelist}

---
 CONTROL/control    | 2 +-
 webif/lib/ts.class | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/CONTROL/control b/CONTROL/control
index fe97a022..223194c7 100644
--- a/CONTROL/control
+++ b/CONTROL/control
@@ -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
diff --git a/webif/lib/ts.class b/webif/lib/ts.class
index 0507817f..dbad4548 100644
--- a/webif/lib/ts.class
+++ b/webif/lib/ts.class
@@ -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
 }