remove more dead code

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 8dcdd52..dc5ea7e 100644 (file)
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -704,8 +704,6 @@ sub tags_subselect
     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)
     {

diff --git a/lib/ID3FS/Path/Node.pm b/lib/ID3FS/Path/Node.pm
index bdc403f..3775d38 100644 (file)
--- a/lib/ID3FS/Path/Node.pm
+++ b/lib/ID3FS/Path/Node.pm
@@ -57,31 +57,6 @@ sub type       { return shift->set("type",       shift); }
 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)=@_;
@@ -147,8 +122,6 @@ sub to_sql
                    push(@outjoins, "LEFT");
                }
            }
-#          print("LEFT: ", $left->print(), "\n") if ($left);
-#          print("RIGHT: ", $right->print(), "\n") if($right);
        }
        elsif($op eq "OR")
        {