package RPS::Import::EMIUK::Physical;

use strict;

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

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

use Data::Dumper;

sub _headerIdentifier { ( totalRevenue => 'NDS Value' ) }

sub currencyCode { 'GBP' }
sub channel      { RPS::File::Sale::CHANNEL_RETAIL }
sub priceLevel   { RPS::File::Sale::PLEVEL_FULL }

sub productType {
    my $type = shift->_getByFieldName('productType') || return;

    if ( $type =~ /^cd album$/i ) {
        return RPS::File::Sale::TYPE_CD;
    } elsif ( $type =~ /^vinyl album$/i ) {
        return RPS::File::Sale::TYPE_LP;
    }

    die "Unknown product type '$type'";
}

sub physical { 1 }

sub countryCode {
    my $self = shift;
    my $country = $self->SUPER::countryCode() || return;

    $country =~ s/EMI //i;

    my $c = new Common::Country( search => $country =~ /Records UK/ ? 'GB' : $country );

    $self->fail("Unable to determin country code from '$country'") unless ( $c->alpha2 );

    return $c->alpha2;
}

sub _processHeader {
    my $self = shift;

    return if ( $self->{_dateBegin} );

    my $date = $self->SUPER::_getDateBegin() || return;
    if ( $date =~ /\w{3} \d{4}/ ) {
        my $d = new Common::Date($date);
        $self->{_dateBegin} = $d->monthBegin();
        $self->{_dateEnd}   = $d->monthEnd();
    }
}

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

sub _isValidSaleRecord {
    my $self = shift;

    return unless ( $self->SUPER::_isValidSaleRecord );

    # There are summary lines in this file that do not have a format set.
    # These need to be ignored.
    return unless ( $self->_getByFieldName('productType') );

    # sales file includes lines with 0 sales or 0 returns.  We need to ignore these
    return $self->sales || $self->returns ? 1 : undef;
}

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

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.
###