- my $genre=$self->get("GENRE");
- return({}) unless($genre);
- my @tags=split(/\s*,\s*/, $genre);
+ my @tags=();
+ my $tags={};
+ for my $key (keys %{$self->{tags}})
+ {
+ if($key =~ /genre/i &&
+ defined($self->{tags}->{$key}) &&
+ length($self->{tags}->{$key}) &&
+ $self->{tags}->{$key} =~ /\S+/)
+ {
+ push(@tags, $self->{tags}->{$key});
+ }
+ }
+ # combine then split on commas
+ # so multiple comma-delimited tags will work
+ @tags=split(/\s*,\s*/, join(', ', @tags));