yaz/commit
fix unique tag count
author | Michiel Hildebrand |
---|---|
Fri Mar 30 17:03:02 2012 +0200 | |
committer | Michiel Hildebrand |
Fri Mar 30 17:03:02 2012 +0200 | |
commit | 1dbfca79b0545d26b1c1abe421730671663abf45 |
tree | 80147bfda53e0dae936ddead79895de7df9c4479 |
parent | 9874d884376de5013b37b2c122554efa4f8f28e4 |
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] ),