package RPS::Import::INGrooves::v12;

use strict;

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

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

use Data::Dumper;

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

sub _fieldMap {
    {
        serviceID        => 'B', # RETAILER
        labelName        => 'M',
        countryCode      => 'K',
        dateBegin        => 'A',
        formatType       => 'O', # ASSET TYPE
        mediaType        => 'N', # SALES TYPE
        artistName       => 'C',
        serviceProductID => 'J',
        upc              => 'E',
        albumName        => 'D',
        trackName        => 'F',
        isrc             => 'H',
        units            => 'P',
        price            => 'S',
    }
}

sub currencyCode { 'USD' }

sub countryCode {
    my $self = shift;
    my $name = $self->SUPER::countryCode();

	if ($name) {
	
	    $name =~ s/,.*//;
	
	    $name = $self->_getAlternateCountryName($name) || $name;
	
	    my $country = new Common::Country( search => $name );
	
		if ($country) {
			return $country->alpha2();
		} else {
			return $name;
		}
	}
}

sub _getMappings {
    my $self = shift;
    my $retailer    = $self->_serviceName();
    #my $productType = $self->_getByFieldName( 'productType' );
    my $productType = ""; # N/A for v12
    my $assetType   = $self->_getByFieldName( 'formatType' );
    my $salesType   = $self->_getByFieldName( 'mediaType' );

    return $self->_getServiceFormat( $retailer, $salesType, $assetType, $productType );
}

sub productType {
    my $self = shift;
    #my $_productType = $self->_getByFieldName( 'productType' ); # N/A for v12

    my ( $serviceID, $formatType, $productType, $mediaType ) = $self->_getMappings();

    return $productType if( $productType );
}

sub formatType           {
    my $self = shift;
    my $assetType   = $self->_getByFieldName( 'formatType' );

    my ( $serviceID, $formatType, $productType, $mediaType ) = $self->_getMappings();

    if ($formatType)
    {
        return $formatType;
    }
    
    return $assetType;
}

sub mediaType           {
    my $self = shift;
    my $salesType   = $self->_getByFieldName( 'mediaType' );

    my ( $serviceID, $formatType, $productType, $mediaType ) = $self->_getMappings();

    return $mediaType if( $mediaType );
    
    return $salesType;
}

sub _serviceName {
    my $self = shift;
    my $service = $self->_getByFieldName( 'serviceID' ) || return;
    $service     =~ s/ (\w{3})$//;

    return $service;
}

sub serviceID           {
    my $self = shift;
    my $service = $self->_serviceName();

    my ( $serviceID, $formatType, $productType, $mediaType ) = $self->_getMappings();

    return $serviceID if( $serviceID );

    return $self->handleError("Unknown service: $service", RPS::DB::Item::SaleImportError::kErrorService);
}

sub price {
    my $price = abs( shift->SUPER::price() );
    return $price;
}

sub units {
    my $self = shift;
    my $units = $self->SUPER::units();
    my $price = $self->SUPER::price();

    if( defined($price) ) {
        return $price < 0 ? abs($units) * -1 : $units;
    } else {
        return $units;
    }

}

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


## MapFace Stuff

# If we want to check for mappings that were created by other compatible versions,
# that must be specified here.
sub _mapFaceCompatibleVersions {
	return (12,13,14,16,18,19,20,21);
}

sub _mapFaceServiceID {
	return ('serviceID');
}

sub _mapFaceCountryCode {
	return ('serviceID', 'countryCode');
}

sub _mapFaceProductType {
	return ('serviceID', 'mediaType', 'formatType', 'productType');
}

sub _mapFaceFormatType {
	return ('serviceID', 'mediaType', 'formatType', 'productType');
}

sub _mapFaceMediaType {
	return ('serviceID', 'mediaType', 'formatType', 'productType');
}

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