package RPS::Import::MalcoRecords::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 physical     { 1 }
sub currencyCode { 'USD' }

sub _isValidSaleRecord {
    my $self = shift;
    my $units = $self->units || return;

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

sub sales {
    my $self = shift;
    my $units = $self->units;
    return $units >= 0 ? $units : 0;
}

sub returns {
    my $self = shift;
    my $units = $self->units;
    return $units < 0 ? abs($units) : 0;
}

sub salesRevenue {
    my $revenue = shift->totalRevenue;
    return $revenue >= 0 ? $revenue : 0;
}

sub returnsRevenue {

    my $revenue = shift->totalRevenue;
    return $revenue < 0 ? abs($revenue) : 0;
}

sub priceLevel {
    my $self = shift;
    my $level = lc($self->_getByFieldName( 'priceLevel' ));

    if ($level eq 'mp') {
        return RPS::File::Sale::PLEVEL_MID;
    } elsif ($level eq 'fp') {
        return RPS::File::Sale::PLEVEL_FULL;
    }

    $self->fail( "Unknown price level '$level'" );
}


sub channel {
    my $self = shift;
    my $channel = lc($self->_getByFieldName( 'channel' ));

    if ($channel eq 'norm') {
        return RPS::File::Sale::CHANNEL_RETAIL;
    }

    $self->fail( "Unknown channel '$channel'" );
}


sub productType {
    my $self = shift;
    my $config = $self->_getByFieldName( 'productType' );

    if ($config eq '09') {
        return RPS::File::Sale::TYPE_DVD;
    } elsif ($config eq '03') {
        return RPS::File::Sale::TYPE_CD;
    } elsif ($config eq '02') {
        return RPS::File::Sale::TYPE_CASS;
    } elsif ($config eq '06') {
        return RPS::File::Sale::TYPE_VHS;
    }

    $self->fail( "Unknown product type '$config'" );
}


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