diff options
author | John Ankarström <john@ankarstrom.se> | 2022-04-07 00:22:37 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2022-04-07 00:22:37 +0200 |
commit | 966a203ff8409972aefe3dd7d243d36adaf21fce (patch) | |
tree | f15b8ffefb867a4b7ac95a49bd6170a3ed58f070 /pl/episode_data.pl | |
parent | c4e5a91da5f50b01cbf46d70830fdb7e51413e29 (diff) | |
download | EpisodeBrowser-966a203ff8409972aefe3dd7d243d36adaf21fce.tar.gz |
Add "View TV Originals" option.
Diffstat (limited to 'pl/episode_data.pl')
-rw-r--r-- | pl/episode_data.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pl/episode_data.pl b/pl/episode_data.pl index e944243..557cddf 100644 --- a/pl/episode_data.pl +++ b/pl/episode_data.pl @@ -2,7 +2,8 @@ retract_episode/1, episode_count/1, rate_episode/2, - episode_rating/2]). + episode_rating/2, + tv_original/1]). :- use_module(library(clpfd)). :- use_module(library(dcg/basics)). @@ -54,6 +55,8 @@ rate_episode(Ep, R) :- ; assert_episode_rating(Ep, R) ). +tv_original(Ep) :- episode_datum(Ep, 'Source', 'TV Original'). + % Remote data retrieval. episode_number(Ep) --> integer(Ep). |