yaz/commit
fix dependencies
author | Michiel Hildebrand |
---|---|
Sat Feb 5 18:09:56 2011 +0100 | |
committer | Michiel Hildebrand |
Sat Feb 5 18:09:56 2011 +0100 | |
commit | 2054710b19b9c4a414734ec6f6af03719fea83ac |
tree | b5802014b76b394e545c54497de66b7df0dfe4c0 |
parent | 7d3f788ed02882f709427fc6edcc846ed9f918ad |
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),