- my @tagnames=map { $_->[0]; } @$result;
- print "ARTISTS: ", join(', ', @tagnames), "\n";
- return(@tagnames);
+ my @names=map { $_->[0]; } @$result;
+ @names = map { s/.*\///; $_; } @names;
+ print "TRACKS: ", join(', ', @names), "\n";
+ return(@names);
+}
+
+sub filename
+{
+ my($self, @constraints)=@_;
+ if(ref($constraints[$#constraints]) eq "ID3FS::PathElement::File")
+ {
+ my $id=$constraints[$#constraints]->{id};
+ my $sql=("SELECT paths.name, files.name FROM files\n" .
+ "INNER JOIN paths_x_files ON files.id=paths_x_files.files_id\n" .
+ "INNER JOIN paths ON paths_x_files.paths_id=paths.id\n" .
+ "WHERE files.id=?\n" .
+ "GROUP BY paths.name, files.name");
+ print "FILENAME SQL: $sql\n";
+ my ($path, $name)=$self->cmd_onerow($sql, $id);
+ return($self->{absbase} . "/$path/$name");
+ }
+ die("DB::filename: unhandled case\n"); #FIXME