my $tree=$self->{tagtree};
my $parent=$self->trailing_tag_parent();
-# print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
-# print "TREE: ", $tree->print(), "\n";
my $tag=undef;
if($hasvals)
{
sub id { return shift->set("id", shift); }
sub parents_id { return shift->set("parents_id", shift); }
-sub print
-{
- my($self)=@_;
- my $op=$self->name();
- my $left=$self->left();
- my $right=$self->right();
- return "" unless($left || $right);
- my $str .= $self->print_node($left);
- $str .= (" " . $op . " ") if($op);
- $str .= $self->print_node($right);
- if($op || ($left && $right))
- {
- $str="(" . $str . ")";
- }
- return $str;
-}
-
-sub print_node
-{
- my($self, $node)=@_;
- return "" unless(defined($node));
- return $node->print() if(ref($node) eq "ID3FS::Path::Node");
- return $node->{name};
-}
-
sub to_sql
{
my($self, $hasvals, $not, @joins)=@_;
push(@outjoins, "LEFT");
}
}
-# print("LEFT: ", $left->print(), "\n") if ($left);
-# print("RIGHT: ", $right->print(), "\n") if($right);
}
elsif($op eq "OR")
{