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

use strict;

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' );
    my $units2 = $self->_getByFieldName( 'units2' );

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

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

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

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

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

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

sub returns {
    my $self = shift;
    my $units = $self->_getByFieldName( 'units' );
    my $units2 = $self->_getByFieldName( 'units2' );
    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' );
    my $salesRevenue = $self->_getByFieldName( 'price' );

    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'");
}


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