package RPS::Import::TouchTunes::v4;

use strict;
use warnings;

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

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

sub _fieldMap {
    {
        # Data
        labelName        => 'C',
        dateBegin        => 'O',
        formatType       => 'P',
        serviceProductID => 'D',
        artistName       => 'F',
        upc              => 'H',
        isrc             => 'G',
        trackName        => 'E',
        units            => 'L',
        price            => 'N',
    };
}

sub _unverifiedFieldMap {
    { units2 => 'I', };
}

sub countryCode  { 'US' }
sub currencyCode { 'USD' }
sub productType  { return RPS::File::Sale::TYPE_TRACK; }
sub _dateFormat  { 'quarter' }
sub mediaType    { return RPS::DB::Item::MediaType::kMediaTypeAudio }

sub units {
    my $self   = shift;
    my $units  = $self->_getByFieldName('units')  || 0;
    my $units2 = $self->_getByFieldName('units2') || 0;

    return $units == 0 ? $units2 : $units;
}

sub sales {
    my $self   = shift;
    my $units  = $self->_getByFieldName('units')  || 0;
    my $units2 = $self->_getByFieldName('units2') || 0;
    my $sales;

    $units == 0 ? $sales = $units2 : $sales = $units;

    return ( $sales > 0 ) ? $sales : 0;
}

sub salesRevenue {
    my $self         = shift;
    my $salesRevenue = $self->_getByFieldName('price') || 0;

    return ( $salesRevenue > 0 ) ? $salesRevenue : 0;
}

sub returns {
    my $self   = shift;
    my $units  = $self->_getByFieldName('units')  || 0;
    my $units2 = $self->_getByFieldName('units2') || 0;
    my $sales;
    my $salesRevenue = $self->_getByFieldName('price');

    $units == 0 ? $sales = $units2 : $sales = $units;

    return ( $sales < 0 && $salesRevenue < 0 ) ? abs($sales) : 0;
}

sub returnsRevenue {
    my $self         = shift;
    my $sales        = $self->_getByFieldName('units') || 0;
    my $salesRevenue = $self->_getByFieldName('price') || 0;

    return ( $sales < 0 && $salesRevenue < 0 ) ? abs($salesRevenue) : 0;
}

sub formatType {
    my $self = shift;
    my $type = $self->_getByFieldName('formatType') || '';
    if ( $type =~ /^coin op$/i ) {
        return RPS::File::Sale::FORMAT_JUKEBOX;
    }
    if ( $type =~ /^background music$/i ) {
        return RPS::File::Sale::FORMAT_BACKGROUNDMUSIC;
    }
    $self->fail("Unable to get format from '$type'");
}

sub price {
    my $self = shift;

    my $price = $self->_getByFieldName('price') || 0;
    $price =~ s/,//g;

    return $price;
}


1;