package RPS::Import::EMIMusic::Downloads::v1;

use strict;

use lib '/app/tools/data_classes/lib';
use lib '/app/tools/common/lib';
use lib '/app/tools/rps/lib';
use lib '/app/tools/raptor/lib';
use Common::Date;
use Common::Log;
use Common::RSMath;
use Client::Service;

use base 'RPS::Import::Importer';

use Data::Dumper;



# These files don't contain header lines.
#
sub _noHeader { 1 }

sub _unverifiedFieldMap {
    {
        title => 'L',
        identifier => 'J',
    }
}


sub _fieldMap {
    {
        dateBegin        => 'F',
#        isrc             => 'J',
        artistName       => 'K',
#        trackName        => 'L',  # !!! this could be a track or an album...
        units            => 'M',
        price            => 'P',
        currencyCode     => 'Q',
        countryCode      => 'T',

        comments         => 'E', # !!! This is the 'Retail URL' column, which I am capturing for analysis.
    }
}


# JPK - Going to overload this to examine the line data, and determine whether this
# is a track or an album.
#
sub _isValidSaleRecord {
	my $self = shift;

    my $title = $self->_getByFieldName('title');
    return undef unless ($self->units && $title && $self->countryCode && $self->currencyCode);

    # Reset all the private fields.
    #
    $self->{_upc} = undef;
    $self->{_isrc} = undef;
    $self->{_trackTitle} = undef;
    $self->{_albumTitle} = undef;

    my $id = $self->_getByFieldName('identifier');
    if ($id =~ /^[a-zA-Z]{5}/)
    {
        # looks like a 'DTI' to me...
        #
        $self->{_isrc} = $id;
        $self->{_trackTitle} = $title;
    }
    elsif ($id =~ /^\d{11,13}$/)
    {
        # an ICPN, which we'll put in the UPC column.
        #
        $self->{_upc} = $id;
        $self->{_albumTitle} = $title;
    }
    else
    {
        # !!! At some point we might want to just skip bogus lines, but for now let's blow up.
        #
        die "ERROR - Unrecognised 'Digital Identifier' column value of '$id'";
    }
    

    return 1;
}


# These can be track or album sales.
# If the 'isrc' column looks like one of EMI's Digital Identifiers, we'll call it a track sale.
#

sub productType
{
    my ($self) = @_;
    return RPS::File::Sale::TYPE_TRACK if ($self->{_trackTitle});
    return RPS::File::Sale::TYPE_ALBUM if ($self->{_albumTitle});

    die "UNKNOWN PRODUCT TYPE - line " . $self->{linenum} . " track title = '".$self->{_trackTitle}."' album title = '".$self->{_albumTitle}."' whole line: " . Dumper($self->{line});

}

sub formatType  { RPS::File::Sale::FORMAT_DOWNLOAD}

sub trackName 
{
    my ($self) = @_;
    return $self->{_trackTitle};
}

sub albumName 
{
    my ($self) = @_;
    return $self->{_albumTitle};
}

sub isrc
{
    my ($self) = @_;
    return $self->{_isrc};
}

# !!! Also store the DTI in client_product_id
#
sub clientProductID
{
    my ($self) = @_;
    return $self->{_isrc};
}

sub upc
{
    my ($self) = @_;
    return $self->{_upc};
}


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