- my ($tags, $tags_vals, $parent)=$self->constraints_tag_list(@constraints);
- my @tags=@$tags;
- my @tags_vals=@$tags_vals;;
- my @orclauses=();
- my @andclauses=();
- use Data::Dumper;
-# print "TAGS: ", Dumper \@tags;
-# print "VALS: ", Dumper \@tags_vals;
-
- push(@andclauses, "( t2.parents_id=" . (defined($parent) ? $parent : "''") . " )");
- if(@tags)
- {
- push(@orclauses, "( t2.id NOT IN ( " . join(', ', @tags) ." ) )");
- }
- for my $pair (@tags_vals)
+ my @used=$path->used_tags();
+ print "tags(): USED: ", join(", ", @used), "\n";
+ if(@used)