vumix/commit

annotation time

diff --git a/lib/experiment.pl b/lib/experiment.pl
index a8a7de0..a96f9b2 100644
--- a/lib/experiment.pl
+++ b/lib/experiment.pl
@@ -9,6 +9,16 @@
 :- rdf_meta
 	target_annotation(r,+,-).
 
+time_table(User) :-
+	(   user_annotated_target(User, Target),
+	    rdf(Session, opmv:used, Target),
+	    rdf(Session, opmv:wasStartedAt, literal(StartTime)),
+	    rdf(Session, opmv:wasEndedAt, literal(EndTime)),
+	    format('~w ~w ~n', [StartTime, EndTime]),
+	    fail
+	;   true
+	).
+
 average_table(User) :-
 	(   user_annotated_target(User, Target),
 	    findall(A, target_annotation(Target, User, A), As0),