package RPS::Import::Red2;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/rps/lib';
use base 'RPS::Import::Importer';

sub _fieldMap
{
    {
        labelName       => 'C',
        type            => 'I',
        configuration   => 'I',
        artistName      => 'D',
        clientProductID => 'G',
        upc             => 'H',
        albumName       => 'E',
        sales           => 'N',
        totalRevenue    => 'P',
    }
}

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

sub _isValidSaleRecord
{
	my $self = shift;

	return $self->albumName && $self->SUPER::sales;
}

sub channel     { RPS::File::Sale::CHANNEL_RETAIL } 
sub priceLevel  { RPS::File::Sale::PLEVEL_UNKNOWN }

sub _productTypes
{
    {
        'lp' =>
        {
            productType => RPS::File::Sale::TYPE_LP,
        },
        'cd' =>
        {
            productType => RPS::File::Sale::TYPE_CD,
        },
        'si' =>
        {
            productType => RPS::File::Sale::TYPE_LP5,
        },
    }
}

sub sales
{
    my $self = shift;

    my $sales = $self->SUPER::sales();
    $sales = 0 if ($sales < 0);

    return $sales;
}

sub returns
{
    my $self = shift;

    my $returns = $self->SUPER::sales();
    $returns = 0 if ($returns > 0);

    return abs($returns);
}

sub salesRevenue
{
    my $self = shift;

    my $salesRevenue = $self->totalRevenue;
    $salesRevenue = 0 if ($salesRevenue < 0);

    return $salesRevenue;
}

sub returnsRevenue
{
    my $self = shift;

    my $returnsRevenue = $self->totalRevenue;
    $returnsRevenue = 0 if ($returnsRevenue > 0);

    return abs($returnsRevenue);
}

sub totalRevenue
{
    return Common::RSMath::round(shift->SUPER::totalRevenue, 2);
}

sub countryCode
{
    my $self = shift;

    my ($countryCode) = $self->filename =~ /^RED-(CA)/;

    return $countryCode;
}

sub _getDateBegin
{
    my $self = shift;

	my $dateBegin;
    if ($self->filename =~ m/(september|october|november|december|january|february|march|april|may|june|july|august) (\d{4})/i)
    {
        my $month = Decode_Month($1);
        my $year  = $2;
        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
    }

	return $dateBegin;
}


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