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);
}
print "ALBUM_TRACKS SQL($artist_id, $album_id): $sql\n";
my $result=$self->cmd_rows($sql, $artist_id, $album_id);
my @names=map { $_->[0]; } @$result;
- @names = map { s/.*\///; $_;} @names;
print "TRACKS: ", join(', ', @names), "\n";
return(@names);
}
print "SQL: $sql\n";
my $result=$self->cmd_rows($sql);
my @names=map { $_->[0]; } @$result;
- @names = map { s/.*\///; $_; } @names;
print "TRACKS: ", join(', ', @names), "\n";
return(@names);
}