aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pl/episode_data.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/pl/episode_data.pl b/pl/episode_data.pl
index 0c43bdc..1bdde79 100644
--- a/pl/episode_data.pl
+++ b/pl/episode_data.pl
@@ -23,6 +23,7 @@ detach :-
% Interface.
last_episode(Ep) :-
+ ensure,
setof(E, N^D^lookup_episode_local(E,N,D), Es),
last(Es, Ep).
@@ -35,7 +36,6 @@ lookup_episode_remote(Ep, Name, Data) :-
update, !,
episode_name_data(Ep, Name, Data).
-
retract_episode(Ep) :-
( episode_name_data(Ep, _, _)
-> retractall_episode_name_data(Ep, _, _)
@@ -52,6 +52,9 @@ episode_number(Ep) --> padding(Ep), integer(Ep).
% Database updating.
+ensure :- episode_name_data(_, _, _), !.
+ensure :- update.
+
update :-
remote(R0), !,
findall(Ep-Name-Data, (xpath(R0, //tr, R),