Add support quickplay program

source/Main.brs

@@ -189,6 +189,8 @@ sub Main (args as dynamic) as void
                         quickplay.person(itemNode)
                     else if itemType = "tvchannel"
                         quickplay.tvChannel(itemNode)
+                    else if itemType = "program"
+                        quickplay.program(itemNode)
                     end if
 
                     m.global.queueManager.callFunc("playQueue")

source/utils/quickplay.bs

@@ -324,6 +324,15 @@ namespace quickplay
         m.global.sceneManager.callFunc("pushScene", group)
     end sub
 
+    ' Quick Play A Live Program
+    sub program(itemNode as object)
+        if not isValid(itemNode) or not isValid(itemNode.json) or not isValid(itemNode.json.ChannelId) then return
+
+        stopLoadingSpinner()
+        group = CreateVideoPlayerGroup(itemNode.json.ChannelId)
+        m.global.sceneManager.callFunc("pushScene", group)
+    end sub
+
     ' Quick Play A Playlist.
     ' Play the first unwatched episode.
     ' If none, play the whole season starting with episode 1.