yaz/commit

fix unique tag count

authorMichiel Hildebrand
Fri Mar 30 17:03:02 2012 +0200
committerMichiel Hildebrand
Fri Mar 30 17:03:02 2012 +0200
commit1dbfca79b0545d26b1c1abe421730671663abf45
tree80147bfda53e0dae936ddead79895de7df9c4479
parent9874d884376de5013b37b2c122554efa4f8f28e4
Diff style: patch stat
diff --git a/applications/yaz_video_stats.pl b/applications/yaz_video_stats.pl
index 22c8dcc..8519dc8 100644
--- a/applications/yaz_video_stats.pl
+++ b/applications/yaz_video_stats.pl
@@ -126,7 +126,7 @@ video_data(Video, Stats) :-
 	length(Tags0, Ts),
 	length(Tags, UTs),
 	remove_no_scored(Es, Scored0),
-	pairs_keys(Scored0, ScoredTags),
+	pairs_values(Scored0, ScoredTags),
 	sort(ScoredTags, Scored),
 	length(Scored0, Ms),
 	length(Scored, UMs).
@@ -138,7 +138,7 @@ video_process(Video, Process, User) :-
 
 remove_no_scored([], []).
 remove_no_scored([E|Es], L) :-
-	(   E = 0-_
+	(   E = 5-_
 	->  L = L1
 	;   L = [E|L1]
 	),