package RPS::Import::Merlin::v40;
use strict;
use lib '/app/tools/rps/lib';
use RPS::Import::ServiceMap;
use base 'RPS::Import::Importer';

sub _headerIdentifier { ( upc => 'EAN UPC' ) }

sub _fieldMap {
    {
        labelName        => 'N',
        serviceID        => 'G',
        countryCode      => 'H',
        dateBegin        => 'A', 
        formatType       => 'T',
        artistName       => 'K',
        upc              => 'J',
        albumName        => 'M',
        isrc             => 'I',
        trackName        => 'L',
        units            => 'O',
        currencyCode     => 'D',
        price            => 'Q',
    }
}

sub productType { return RPS::File::Sale::TYPE_TRACK; }
sub mediaType   { return RPS::DB::Item::MediaType::kMediaTypeAudio }

sub saleDates {
    my $self = shift;
    my $dt = $self->_getByFieldName('dateBegin');
    if( $dt =~ /^(\d{4})(\d{2})$/ )
    {
        $dt = sprintf("%04d-%02d-01", $1, $2);
    }
    return $self->_getDates( date_begin => $dt );
}

sub formatType   {
    my $self = shift;
    my $type = $self->_getByFieldName('formatType');
    if( $type =~ /^on-demand$/i || $type =~ /^pre-configured$/i )
    {
        return RPS::File::Sale::FORMAT_STREAM;
    }
    $self->fail("Unable to get format from '$type'");
}

sub serviceID {
    my $self = shift;
    my $service = $self->_getByFieldName('serviceID');

    $self->fail( "Service name not defined" ) unless( $service );

    my $serviceID = $self->getServiceID(lc ($service)) || $RPS::Import::ServiceMap::SERVICE_ALIASES{ lc $service };

    $self->fail( "Unable to determine service id from '$service'" ) unless( $serviceID );

    return $serviceID;
}

sub countryCode {
    my $self = shift;
    my $cname = $self->_getByFieldName('countryCode');
    my $o = Common::Country->Get( $cname );
    return (defined $o) ? $o->alpha2() : $cname;
}

###
1;# Play nicely.
###