annotation_dashboard/commit

Work in progress: pagination options

diff --git a/applications/dashboard.pl b/applications/dashboard.pl
index 0fc9e5d..f9d658e 100644
--- a/applications/dashboard.pl
+++ b/applications/dashboard.pl
@@ -78,9 +78,12 @@ http_dashboard_task(Request) :-
 	(setting(annotation:dashboard_admin_only, true)
 	-> authorized(admin(dashboard)); true),
 	http_parameters(Request,
-			[task(Task, [])],
-			[form_data(Params)]),
-	task_page(Task, [showTag(always)|Params]).
+			[task(Task, []),
+			 limit(Limit, [nonneg, default(5)]),
+			 offset(Offset, [nonneg, default(0)])
+			]),
+
+	task_page(Task, [showTag(always), limit(Limit), offset(Offset)]).
 
 http_dashboard_user(Request) :-
 	(setting(annotation:dashboard_admin_only, true)
@@ -137,7 +140,8 @@ task_page(Task, Options0) :-
 				div([class(row)], \task_stats(Task)),
 				h3([class('sub-header')],
 				   ['Task objects']),
-				\show_objects(SortedObjects, Options),
+				\show_objects(['http://purl.org/collections/nl/rma/collection/r-115055'
+					       |SortedObjects], Options),
 				\pagination(Options)
 			      ])
 			])
diff --git a/lib/dashboard_util.pl b/lib/dashboard_util.pl
index b883740..7af995f 100644
--- a/lib/dashboard_util.pl
+++ b/lib/dashboard_util.pl
@@ -28,13 +28,18 @@ task_property_blacklist(
      dcterms:xtitle,
      'xhttp://semanticweb.cs.vu.nl/annotate/ui/taskUI'
     ]).
+
 blacklisted_annotation(A) :-
 	rdf_has(A, oa:annotatedBy, 'http://sealinc.ops.few.vu.nl/accurator/user/jasper')
 	;
 	rdf_has(A, oa:annotedBy, 'http://localhost:3020/user/admin')
 	;
+	has_no_image(A)
+	;
 	rdf_has(A, dcterms:title, literal(test)).
 
+has_no_image(_A) :- fail.
+
 is_tag(A) :-
 	rdf_has(A, oa:motivatedBy, oa:tagging).