accurator/commit
Added comments and made predicates somewhat more generic.
author | Chris Dijkshoorn |
---|---|
Mon Mar 14 12:02:22 2016 +0100 | |
committer | Chris Dijkshoorn |
Mon Mar 14 12:02:22 2016 +0100 | |
commit | 85910a025ede23e6de5de080270a23319bc89146 |
tree | 84a8c02542b3690ed0110cb88ed335fa4e2bebd9 |
parent | a23eefdfc9462f5595929fc7b2a58ac590032493 |
Diff style: patch stat
diff --git a/lib/accurator/review.pl b/lib/accurator/review.pl index 96da951..64b7f1b 100644 --- a/lib/accurator/review.pl +++ b/lib/accurator/review.pl @@ -1,8 +1,7 @@ :- module(review, [ review/3, reviews/3, - process_annotations/0, - select_annotations/3, + process_annotations/2, agreeable_annotations/0]). :- use_module(library(oa_annotation)). @@ -41,9 +40,13 @@ review(Judgement, User, Uri) :- debug(review, 'Add review: ~p', [Options]), rdf_add_annotation(Options, _Annotation). - -process_annotations :- - select_annotations('http://purl.org/vocab/nl/ubvu/BiblePageConceptScheme','http://accurator.nl/user#rasvaan',Annotations), +%% process_annotations(+ConceptScheme, +Reviewer) +% +% Retrieves and saves selection of annotations based on the given +% concept scheme and reviewer +% process_annotations('http://purl.org/vocab/nl/ubvu/BiblePageConceptScheme','http://accurator.nl/user#rasvaan'). +process_annotations(ConceptScheme, Reviewer) :- + select_annotations(ConceptScheme, Reviewer, Annotations), generate_graph_name(Annotations, Graph), export_annotations(Graph, Annotations). @@ -75,7 +78,7 @@ select_annotations(ConceptScheme, User, Annotations) :- %% export_annotations(Annotations) % -% Export a list of annotations +% Export a list of annotations. export_annotations(Graph, Annotations) :- rdf_unload_graph(Graph), maplist(add_annotation(Graph), Annotations),