tags(): fix screening out used tags

diff --git a/lib/ID3FS/DB.pm b/lib/ID3FS/DB.pm
index 2ca7f73..19015fd 100644 (file)
--- a/lib/ID3FS/DB.pm
+++ b/lib/ID3FS/DB.pm
@@ -204,7 +204,7 @@ sub tags
     print "VALS: ", Dumper \@tags_vals;
     if(@tags)
     {
-       push(@clauses, "(t2.id NOT IN ( " . join(', ', @tags) ." ) )");
+       push(@clauses, "( t2.parents_id='' AND t2.id NOT IN ( " . join(', ', @tags) ." ) )");
     }
     for my $pair (@tags_vals)
     {
@@ -393,7 +393,7 @@ sub tags_subselect
     my @clauses=();
     if(@tags)
     {
-       push(@clauses, "(t1.id IN ( " . join(', ', @tags) ." ) )");
+       push(@clauses, "(t1.parents_id='' AND t1.id IN ( " . join(', ', @tags) ." ) )");
     }
     for my $pair (@tags_vals)
     {