annotation_dashboard/commit
FIXED: remove debug-only code
author | Jacco van Ossenbruggen |
---|---|
Sun Sep 21 20:19:12 2014 +0200 | |
committer | Jacco van Ossenbruggen |
Sun Sep 21 20:19:12 2014 +0200 | |
commit | 65619dcd0329946d8d3cce8e275ea210409690e5 |
tree | e0c5e51d8426889f7d0d0e887e5ace7faa733fed |
parent | 7f5d947c61eaf2544181dae4de7943d50a2e510f |
Diff style: patch stat
diff --git a/applications/dashboard_task_page.pl b/applications/dashboard_task_page.pl index 69dc42d..fec52d2 100644 --- a/applications/dashboard_task_page.pl +++ b/applications/dashboard_task_page.pl @@ -87,20 +87,22 @@ task_page(Task, Options0) :- rdf_display_label(Task, Label), rdf_has(Task, ann_ui:taskUI, UI), get_metafields(UI, [], MetadataFields), - % get_anfields(UI, [], [], AnnotationFields), - AnnotationFields = [ 'http://eculture.cs.vu.nl/sealinc/ns/demo/ui/CommonBirdNameAnnotation'], + get_anfields(UI, [], [], AnnotationFields), + % AnnotationFields = [ 'http://eculture.cs.vu.nl/sealinc/ns/demo/ui/CommonBirdNameAnnotation'], find_annotations_by_task(Task, Annotations), partition(is_tag, Annotations, Tags, Judgements), maplist(rdf_get_annotation_target, Tags, RawTargets), sort(RawTargets, AllTargets), % de-dup + TargetsWithImages = AllTargets, + % include(target_has_image, AllTargets, TargetsWithImages), % list_offset(['http://purl.org/collections/nl/rma/collection/r-108494'|AllTargets], Offset, OffTargets), - list_offset(AllTargets, Offset, OffTargets), + list_offset(TargetsWithImages, Offset, OffTargets), list_limit(OffTargets, Limit, Objects, _Rest), - length(AllTargets, Total), + length(TargetsWithImages, Total), maplist(count_annotations, Objects, CountPairs), sort(CountPairs, SortedPairs0), reverse(SortedPairs0, ReversePairs), - pairs_values(ReversePairs, _SortedObjects), + pairs_values(ReversePairs, SortedObjects), Options = [annotations(Annotations), judgements(Judgements), annotation_fields(AnnotationFields), @@ -131,7 +133,7 @@ task_page(Task, Options0) :- div([class(row)], \task_stats(Task)), h3([class('sub-header')], ['Task objects']), - \show_objects(Objects, Options), + \show_objects(SortedObjects, Options), \pagination(Options) ]) ])