Here's the code:
CloudDeploy[
FormPage[{
{"actor1", "Name one movie star:"}-> Person,
{"actor2", "Name another movie star:"} -> Person
},
With[
{ movies=EntityClass["Movie", {EntityProperty["Movie", "Cast"] -> ContainsAll[{#actor1, #actor2}]}],
numMovies = Length[EntityList[movies]]
},
Grid[
Join[ {{"", "Title", "Poster", "Release Date"}},
Partition[
Flatten[
Riffle[
Range[numMovies],
EntityValue[movies,{"Name","Image", "ReleaseDate"}]
]
],
4],
1],
Frame->All
]
]&,
AppearanceRules-> <|"Title" -> "Two-gether",
"Description" ->"Enter the names of any two actors, and get a list of all the movies they starred in together.",
"SubmitLabel" -> "Go!"|>,
PageTheme -> "Red"
],
"twogether",
Permissions -> "Public"]
Attachments:
