projects
/
id3fs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Node: merge to_sql and node_to_sql
[id3fs.git]
/
lib
/
ID3FS
/
Path.pm
diff --git
a/lib/ID3FS/Path.pm
b/lib/ID3FS/Path.pm
index
e3aac80
..
e81f585
100644
(file)
--- a/
lib/ID3FS/Path.pm
+++ b/
lib/ID3FS/Path.pm
@@
-678,7
+678,10
@@
sub tags_subselect
return "\tSELECT id FROM files AS files_id\n";
}
my $tree=$self->{tagtree};
return "\tSELECT id FROM files AS files_id\n";
}
my $tree=$self->{tagtree};
+ # FIXME
print "UNDEF!!\n" unless($self->{tagtree});
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";
@@
-691,7
+694,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=();