$self->{tagtree}=$self->elements_to_tree(\@elements);
if($self->{tagtree})
{
- my ($conditions, @joins)=$self->{tagtree}->to_sql();
+# my ($conditions, @joins)=$self->{tagtree}->to_sql();
# print "CONDITIONS(", scalar(@joins), "): ", $conditions, "\n";
-# print "TREE: ", $self->{tagtree}->print(), "\n";
-# print("SQL CONDITION(", scalar(@{$self->{joins}}), "): ",
-# $self->{sqlconditions}, "\n");
-# use Data::Dumper;
-# print Dumper $self->{tagtree};
}
}
}
my $tree=$self->{tagtree};
print "UNDEF!!\n" unless($self->{tagtree});
- use Data::Dumper;
- print Dumper $tree;
my $parent=$self->trailing_tag_parent();
# print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
my @outdirs=();
for my $dir (@dirs)
{
- print "\nFILTER (",$self->state(), "): $base / $dir\n";
+# print "\nFILTER (",$self->state(), "): $base / $dir\n";
if($self->empty("$base/$dir"))
{
- print "empty: $base / $dir\n";
+# print "empty: $base / $dir\n";
}
else
{
- print "non-empty, accepting: $base / $dir\n";
+# print "non-empty, accepting: $base / $dir\n";
push(@outdirs, $dir);
}
}
my @used=();
push(@used, $self->left()->used_tags()) if($self->left());
push(@used, $self->right()->used_tags()) if($self->right());
- print "BOOL: ", $self->name(), join(', ', grep { defined; } @used), "\n";
return(grep { defined; } @used);
}
elsif($self->parents_id())