- my @names=map { $_->[0]; } @$result;
- print "ALBUMS: ", join(', ', @names), "\n";
- return(@names);
-}
-
-sub artist_albums
-{
- my($self, $artist_id)=@_;
- my $sql=("SELECT albums.name FROM artists\n\t" .
- "INNER JOIN artists_x_albums ON artists.id=artists_x_albums.artists_id\n\t" .
- "INNER JOIN albums ON albums.id=artists_x_albums.albums_id\n\t" .
- "WHERE artists.id=?\n\t" .
- "GROUP BY albums.name\n");
- print "ARTIST_ALBUMS SQL: $sql\n";
- my $result=$self->cmd_rows($sql, $artist_id);
- my @albums=map { $_->[0]; } @$result;
- print "ALBUMS: ", join(', ', @albums), "\n";
- return(@albums);
-}
-
-sub artist_tracks
-{
- my($self, $artist_id)=@_;
- my $sql=("SELECT files.name FROM artists\n\t" .
- "INNER JOIN artists_x_files ON artists.id=files_x_artists.artists_id\n\t" .
- "INNER JOIN files ON files.id=files_x_artists.files_id\n\t" .
- "WHERE artists.id=?\n\t" .
- "GROUP BY files.name\n");
- print "ARTIST_TRACKS SQL: $sql\n";
- my $result=$self->cmd_rows($sql, $artist_id);
- my @names=map { $_->[0]; } @$result;
- @names = map { s/.*\///; } @names;
- print "ARTISTTRACKS: ", join(', ', @names), "\n";
- return(@names);
-}
-
-sub album_tracks
-{
- my($self, $album_id)=@_;
- my $sql=("SELECT files.name FROM files\n\t" .
- "INNER JOIN files_x_albums ON files.id=files_x_albums.files_id\n\t" .
- "INNER JOIN albums ON albums.id=files_x_albums.albums_id\n\t" .
- "WHERE albums.id=?\n\t" .
- "GROUP BY files.name\n");
- print "ALBUM_TRACKS SQL($album_id): $sql\n";
- my $result=$self->cmd_rows($sql, $album_id);
- my @names=map { $_->[0]; } @$result;
- @names = map { s/.*\///; $_;} @names;
- print "TRACKS: ", join(', ', @names), "\n";
- return(@names);
-}
-
-sub tracks
-{
- my($self, @constraints)=@_;
- # FIXME: rework PathElements
- if(ref($constraints[$#constraints]) eq "ID3FS::PathElement::Artist")