package RPS::Import::PIAS::Physical;

use strict;

use lib '/app/tools/common/lib';
use Common::Date;
use Common::Country;

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

use Data::Dumper;

sub _headerIdentifier { ( albumName => 'TITLE' ) }

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

sub physical { 1 }

sub _processHeader {
    my $self = shift;

    my $label = $self->_getByFieldName( 'headerLabel' );
    my $value = $self->_getByFieldName( 'headerValue' );
    
    return unless( $label && $value );

    if( $label =~ /period/i ) {
        if( $value =~ /(\w+ \d{4}) - (\w+ \d{4})/ )  # JULY 2015 - DECEMBER 2015
        {
            ($self->{_dateBegin}, $self->{_dateEnd}) = $self->_getDates( date_begin => $1, date_end => $2 );
        }
        else
        {
            my $d = new Common::Date($value);
            $self->{_dateBegin} = $d->monthBegin();
            $self->{_dateEnd}   = $d->monthEnd();
        }
    }
    
    if( $label =~ /currency/i ) {
        ($self->{_currencyCode}) = $value =~ /^(\w{3})/i;
    }
}

sub _getDateBegin { shift->{_dateBegin} }
sub _getDateEnd   { shift->{_dateEnd} }
sub currencyCode  { shift->{_currencyCode} }

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

sub returns { abs(shift->SUPER::returns) }

sub _isValidSaleRecord {
    my $self = shift;

    # Look at the line if it has revenue and a track or album name
    #
    return $self->totalRevenue && ($self->trackName || $self->albumName);

}

# Disable total validation
sub _validateTotalSum { }
sub _validateSaleTotalSum { }
sub _validateReturnTotalSum { }
sub _validateReturnsRevenue { }

sub _validateSalesRevenue {
    my ($self, $saleRec) = @_;

    my $salesRevenue = $saleRec->salesRevenue;

    if(!defined $salesRevenue)
    {
        die Import::ValidationError->new($saleRec, "Sales revenue not defined");
    }

    if($salesRevenue !~ /^-?(?:(?:\d+)?\.\d+|\d+(?:\.)?(?:\d+)?)$/)
    {
        die Import::ValidationError->new($saleRec, "Sales revenue $salesRevenue is in an incorrect format");
    }
}

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