yaz/commit

fix dependencies

authorMichiel Hildebrand
Sat Feb 5 18:09:56 2011 +0100
committerMichiel Hildebrand
Sat Feb 5 18:09:56 2011 +0100
commit2054710b19b9c4a414734ec6f6af03719fea83ac
treeb5802014b76b394e545c54497de66b7df0dfe4c0
parent7d3f788ed02882f709427fc6edcc846ed9f918ad
Diff style: patch stat
diff --git a/applications/yaz_annotate.pl b/applications/yaz_annotate.pl
index 6054954..65cb835 100644
--- a/applications/yaz_annotate.pl
+++ b/applications/yaz_annotate.pl
@@ -29,7 +29,8 @@
 %       By same user, by all?
 
 http_yaz_annotate(Request) :-
-	ensure_logged_on(User),
+	ensure_logged_on(User0),
+	user_property(User0, url(User)),
 	http_parameters(Request,
 			[ video(Video,
 				[optional(true),
@@ -40,7 +41,8 @@ http_yaz_annotate(Request) :-
 			]),
 	(   (var(Video);var(Title))
 	->  html_annotate_form(Video, Title)
-	;   create_user_process([rdf:type=pprime:'Annotation',
+	;   create_user_process(User,
+				[rdf:type=pprime:'Annotation',
 				 opmv:used=Video
 				], _Process),
 	    add_resource_properties(Video, [dc:title=Title]),
diff --git a/applications/yaz_sgarden.pl b/applications/yaz_sgarden.pl
index 2319d66..4c02b1d 100644
--- a/applications/yaz_sgarden.pl
+++ b/applications/yaz_sgarden.pl
@@ -23,6 +23,7 @@
 
 :- use_module(components(label)).
 :- use_module(components(yaz_page)).
+:- use_module(applications(yaz_game)).
 
 :- http_handler(yaz(sgarden), http_yaz_sgarden, []).
 :- http_handler(yaz('data/edittag'), http_yaz_api_edit_tag, []).
diff --git a/applications/yaz_tag_agreement.pl b/applications/yaz_tag_agreement.pl
index d6fa9e3..29380da 100644
--- a/applications/yaz_tag_agreement.pl
+++ b/applications/yaz_tag_agreement.pl
@@ -37,7 +37,8 @@
 :- http_handler(yaz('data/frames'), http_data_frames, []).
 
 http_yaz_tag_agreement(Request) :-
-	ensure_logged_on(_),
+	ensure_logged_on(User0),
+	user_property(User0, url(User)),
 	http_parameters(Request,
 			[ video(Video,
 				[description('Current video')]),
@@ -45,7 +46,8 @@ http_yaz_tag_agreement(Request) :-
 				[default(1000), number,
 				 description('limit number of tags shown')])
 			]),
- 	create_user_process([rdf:type=pprime:'TagGarden',
+ 	create_user_process(User,
+			    [rdf:type=pprime:'TagGarden',
 			     opmv:used=Video
 			    ], _Process),
 	findall(Tag, video_tag(Video, literal(Tag)), Tags0),