projects
/
id3fs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e24d1a1
)
remove debug code
author
Ian Beckwith
<ianb@erislabs.net>
Mon, 18 Oct 2010 14:47:53 +0000
(15:47 +0100)
committer
Ian Beckwith
<ianb@erislabs.net>
Mon, 18 Oct 2010 14:47:53 +0000
(15:47 +0100)
lib/ID3FS/Path.pm
patch
|
blob
|
history
diff --git
a/lib/ID3FS/Path.pm
b/lib/ID3FS/Path.pm
index
e81f585
..
01831fc
100644
(file)
--- a/
lib/ID3FS/Path.pm
+++ b/
lib/ID3FS/Path.pm
@@
-680,8
+680,6
@@
sub tags_subselect
my $tree=$self->{tagtree};
# FIXME
print "UNDEF!!\n" unless($self->{tagtree});
my $tree=$self->{tagtree};
# FIXME
print "UNDEF!!\n" unless($self->{tagtree});
- use Data::Dumper;
- print Dumper $self->{tagtree};
my $parent=$self->trailing_tag_parent();
# print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
my $parent=$self->trailing_tag_parent();
# print "ELEMENTS: ", join('/', map { $_->{name}; } @{$self->{elements}}), "\n";
@@
-694,7
+692,7
@@
sub tags_subselect
}
my ($sqlclause, @joins)=(undef, ());
($sqlclause, @joins) = $tree->to_sql($hasvals) if($tree);
}
my ($sqlclause, @joins)=(undef, ());
($sqlclause, @joins) = $tree->to_sql($hasvals) if($tree);
-
print "SQL(" . scalar(@joins) ."
: $sqlclause\n";
+
# print "SQL(" . scalar(@joins) .")
: $sqlclause\n";
my $sql="\tSELECT fxt1.files_id FROM tags t1";
my @crosses=();
my @inners=();
my $sql="\tSELECT fxt1.files_id FROM tags t1";
my @crosses=();
my @inners=();