- elsif($op->{name} eq "NOT")
- {
- push(@childjoins, "LEFT");
- push(@outjoins, "LEFT");
- }
- }
- ($rightstr, @rightjoins) = $self->node_to_sql($right, $parent, @leftjoins, @childjoins);
- print "LEFT (", scalar(@leftjoins), "): $leftstr\n";
- print "RIGHT (", scalar(@rightjoins), "): $rightstr\n";
- my $str=$leftstr;
- $str .= (" " . $op->{name} . " ") if($op);
- $str .= $rightstr;
- if($op || ($left && $right))
- {
- $str="(" . $str . ")";
- }
- print "STR: $str\n";
-# return($str, $self->max($leftandlevel, $rightandlevel));
- my @oldout=@outjoins;
- @outjoins = (@leftjoins, @outjoins, @rightjoins);
- if($op)
- {
- print "ME (", (defined($op) ? $op->{name} : ""), "): ";
- print(scalar(@outjoins), " = " , scalar(@leftjoins), " + ", scalar(@oldout),
- " + ", scalar(@rightjoins), "\n");