yaz/commit

also show videos without explicit ingestion stamp

authorMichiel Hildebrand
Mon Aug 22 18:46:55 2011 +0200
committerMichiel Hildebrand
Mon Aug 22 18:46:55 2011 +0200
commit6eb5936a85686c9f0b3e2c6fc8dcefbba7991781
treedc5bd0a01bbfa6a129224c4cde30063a9c5c50db
parente44ae994297ef8200b1f472c09e827bb27a8443e
Diff style: patch stat
diff --git a/lib/videos.pl b/lib/videos.pl
index f263a8b..e3fc01a 100644
--- a/lib/videos.pl
+++ b/lib/videos.pl
@@ -106,7 +106,11 @@ suggested_videos(User, Videos) :-
 %	True if Video is ingested at Time by User.
 
 ingested_video(Video, Time) :-
-	rdf(Video, pprime:ingestedAt, literal(Time)).
+	rdf(Video, rdf:type, pprime:'Video'),
+	(   rdf(Video, pprime:ingestedAt, literal(IngestionTime))
+	->  Time = IngestionTime
+	;   Time = 0
+	).
 
 
 %%	active_video(?User, ?Video, ?Process, -StartTime)