yaz/commit

ADD

authorMichiel Hildebrand
Tue Dec 20 13:23:30 2011 +0100
committerMichiel Hildebrand
Tue Dec 20 13:23:30 2011 +0100
commit9f82c7a4ea2b84ac1e80e57f9bc33ec40649be70
tree43a127806a717d8f6fe56c0dd999e46d5aea7882
parent2ab673ab6215937c5950541582264d0222b20126
Diff style: patch stat
diff --git a/api/ugm_ingest.pl b/api/ugm_ingest.pl
index a8a131b..e5abad4 100644
--- a/api/ugm_ingest.pl
+++ b/api/ugm_ingest.pl
@@ -36,7 +36,9 @@ local_video_file(URL, File) :-
 
 http_api_ugm_ingest(Request) :-
 		http_parameters(Request,
-				[ videoId(VideoId,
+				[ videoURL(VideoURL,
+					   [description('URL of the video')]),
+				  videoId(VideoId,
 					  [description('Identifier of the video')]),
 				  videoTitle(Title,
 					[default(''),
@@ -58,7 +60,6 @@ http_api_ugm_ingest(Request) :-
 					       description('JSON object with the annotations')])
 				]),
 		length(Entries, EntryCount),
-		pprime_url(VideoId, video, VideoURL),
 		(   rdf(VideoURL, rdf:type, pprime:'Video')
 		->  rdf_transaction(rdf_retractall(_,_,_,VideoURL))
 		;   true
@@ -102,7 +103,7 @@ import_video(URL, Id, Stream, Title, Desc, Duration0, Slug) :-
 	rdf_assert(URL, dc:description, literal(Desc), URL),
 	rdf_assert(URL, pprime:duration, literal(Duration), URL),
 	rdf_assert(URL, pprime:slug, literal(Slug), URL),
-	rdf_assert(URL, pprime:ingestedAt, literal(type(xsd:date, Now)), URL).
+	rdf_assert(URL, pprime:ingestedAt, literal(Now), URL).
 
 
 %%	import_entries(+TagEntryList, +VideoId)