annotation_dashboard/commit

FIXED: remove debug-only code

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)
 			      ])
 			])