X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=blobdiff_plain;f=lib%2FID3FS%2FPath.pm;h=aa2e62ea21081af3c9e39c838a351743baefc068;hp=49472568a4584406f2f8a43eb4dbbc09fcd4b71e;hb=fb37f8cca3d20be63e245717448a1d2ce1e3b5fb;hpb=0ebca20daff63136c46612579d6cc041b8cd6b4f

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 4947256..aa2e62e 100644
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -352,13 +352,8 @@ sub parse
     $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};
     }
 }
 
@@ -724,8 +719,6 @@ sub tags_subselect
     }
     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";
@@ -852,14 +845,14 @@ sub filter
     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);
 	}
     }