yaz/commit

FIX user profile

diff --git a/applications/yaz_user.pl b/applications/yaz_user.pl
index c4cde55..7c06fd5 100644
--- a/applications/yaz_user.pl
+++ b/applications/yaz_user.pl
@@ -78,16 +78,13 @@ html_page(User, ProfileTags, VideoTags) :-
 			]).
 
 html_user_statistics(User) -->
-	{ ingested_videos(User, VL),
-	  video_queue(User, QL),
+	{ active_videos(User, QL),
 	  moderated_videos(User, ML),
-	  length(VL, VN),
 	  length(QL, QN),
 	  length(ML, MN),
 	  http_link_to_id(http_yaz_videos, [user(User)], HREF)
 	},
-	html(ul([li([VN, ' ', \video_label(VN), ' assigned to you', \browse(HREF, all)]),
-		 li([MN, ' ', \video_label(MN), ' moderated by you', \browse(HREF, moderated)]),
+	html(ul([li([MN, ' ', \video_label(MN), ' moderated by you', \browse(HREF, moderated)]),
 		 li([QN, ' ', \video_label(ML), ' waiting for your moderation', \browse(HREF, queue)])
 		])).
 
diff --git a/lib/find_concept.pl b/lib/find_concept.pl
index cdac03b..e867bb9 100644
--- a/lib/find_concept.pl
+++ b/lib/find_concept.pl
@@ -9,7 +9,7 @@
 
 :- rdf_meta
 	type_scheme(+,r).
-
+/*
 type_scheme(subject, gtaa:'Onderwerpen').
 type_scheme(location, gtaa:'GeografischeNamen').
 type_scheme(person, gtaa:'Persoonsnamen').
@@ -25,7 +25,7 @@ concept_entries(Video, ConceptEntries, Options) :-
 	merge_entries(TagEntries0, TagEntries),
 
 concept_entries(TagEntries, Filter, ConceptEntries, Rest) :-
-	concept_entries_(TagEntries, ConceptEntries0m Rest),
+	concept_entries_(TagEntries, ConceptEntries, Rest),
 	merge_entries(ConceptEntries0, ConceptEntri
 
 concept_entries_([Tag-Entries|Ts], Filter, [Concept-Entries|Cs], Rest) :-
@@ -99,3 +99,4 @@ value_flatten(Key-Lists, Key-List) :-
 
 tag_value(literal(Tag), Tag).
 tag_value(uri(_URI,Tag), Tag).
+*/