problem in selecting a movie

Archived
1

I have 2 category and each realm has its movies but to the select category select 1 category 2 film film 1

This is the code that I have

Function CreateMovieMenu() as integer
    screen = CreateObject("roGridScreen")
    port = CreateObject("roMessagePort")
    screen.SetMessagePort(port)
    
    screen.SetBreadcrumbText("Movie", "Full Menu")
    screen.SetupLists(2)
    screen.SetListNames(["Movie 1", "Movie 2"])

    screen.SetContentList(0, GetMovieMenuOptions_Category_1())    
    screen.SetContentList(1, GetMovieMenuOptions_Category_2())  
    screen.show()
    
    while (true)
        msg = wait(0, port)
        if type(msg) = "roGridScreenEvent"
            if (msg.isScreenClosed())
                return -1
            else if (msg.isListItemSelected())
                ShowMoviePlay(msg.GetData())
            endif
        endif
        
    end while
End Function

Function GetMovieMenuOptions_Category_1() as object
        m.options = [
            { Title: "Movie Test 1"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }
            { Title: "Movie Test 2"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }           
            { Title: "Movie Test 3"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }
       ]
       return m.options
End Function

Function GetMovieMenuOptions_Category_2() as object
        m.options = [
            { Title: "Movie Test 1"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }
            { Title: "Movie Test 2"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }           
            { Title: "Movie Test 3"
              Description: "A Variety of Fresh Fruit"
              HDPosterUrl:"pkg://images/fruit.jpg"
              SDPosterUrl:"pkg://images/fruit.jpg"
              Rating:"NR"
              ReleaseDate:"2014"
			  Length: "5400"
			  Url: "http://dominio.com//movie.mp4"
            }
       ]
       return m.options
End Function

Function ShowMoviePlay(index as integer) as integer
                ' prueba de play video
                videoScreen = CreateObject("roVideoScreen")
                port = CreateObject("roMessagePort")
                videoScreen.SetMessagePort( port )
                    metaData = {
                        ContentType: "episode",
                        title: m.options[index].Title,
                		streamFormat: "mp4",
                        stream: {
                            Url: m.options[index].Url
                        }
                    }
                videoScreen.SetContent( metaData )
                videoScreen.show()
    
                while (true)
                    msg = wait(0, port)
                    if type(msg) = "roVideoScreenEvent"
                        if (msg.isScreenClosed()) '<BACK>
                            return -1
                        end if
                    endif
                end while
End Function