my $tags={};
for my $key (keys %{$self->{tags}})
{
+ print "CONSIDERING: $key\n";
if($key =~ /genre/i &&
defined($self->{tags}->{$key}) &&
length($self->{tags}->{$key}) &&
$self->{tags}->{$key} =~ /\S+/)
{
+ print "KEY: $key, val: ", $self->{tags}->{$key}, "\n";
push(@tags, $self->{tags}->{$key});
}
}
my $tagname=$1;
my $tagval=$2;
$tagval=~s/\//-/g;
- $self->{tags}->{$tagname}=$tagval;
+ $tags->{$tagname}=$tagval;
}
else
{
- $self->{tags}->{$tag}=undef;
+ $tags->{$tag}=undef;
}
}
- return $self->{tags};
+ return $tags;
}
1;