{
my($self,$path)=@_;
my $relpath=Cwd::abs_path($path);
- $relpath =~ s/^\Q$self->{base}\E\/?//;
+ $relpath =~ s/^\Q$self->{absbase}\E\/?//;
my($filepart,$pathpart);
if($relpath !~ /\//)
{
{
$self->add_tag($file_id, "decade", "${1}0s");
}
+ else
+ {
+ $self->add_tag($file_id, "decade", "UNKNOWN");
+ }
if($self->ok($v1genre))
{