#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# Copyright (C) 2010 RoyaltyShare, Inc.   All Rights Reserved
#---------------------------------------------------------------

package RPS::Import::Finetunes::v2;

use strict;

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

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

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

sub _fieldMap {
    {
		labelName     => 'D',
        countryCode   => 'G',
        productType   => 'F',
        artistName    => 'B',
        upc           => 'A',
        isrc          => 'E',
        trackName     => 'C',
        units         => 'I',
        price         => 'M',
	}
}

sub _unverifiedFieldMap {
	{
		headerName    => 'A',
		headerValue   => 'B',
	}
}

sub formatType  { RPS::File::Sale::FORMAT_DOWNLOAD; }
sub mediaType   { RPS::DB::Item::MediaType::kMediaTypeAudio }

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

	if( $type && lc($type) eq 'track' ) {
        return RPS::File::Sale::TYPE_TRACK;
	}

	elsif( $type && lc($type) eq 'album' ) {
        return RPS::File::Sale::TYPE_ALBUM;
	}

	else {
		$self->fail( "Unable to determine product type from '$type'" );
	}
}

sub _processHeader {
	my $self = shift;

    my $name  = $self->_getByFieldName('headerName');
    my $value = $self->_getByFieldName('headerValue');

	unless( $self->{_periodStart} ) {
        $self->{_periodStart} = scalar Common::Date->new( date => $value, type => 'eur'  ) if( $name && $name =~ /Period start/i );
	}

	unless( $self->{_periodEnd} ) {
        $self->{_periodEnd} = scalar Common::Date->new( date => $value, type => 'eur' ) if( $name && $name =~ /period end/i );
	}

	unless( $self->{_currencyCode} ) {
        $self->{_currencyCode} = $value if( $name && $name =~ /currency/i );
	}

	if( $self->_isHeader() ) {
		$self->fail( "date begin not found in the header" ) unless( $self->_getDateBegin() );
		$self->fail( "date end not found in the header" ) unless( $self->_getDateEnd() );
		$self->fail( "currency code not found in the header" ) unless( $self->currencyCode() );
	}

	return $self->SUPER::_processHeader(@_);
}

sub _processLine {
	my $self = shift;

	$self->SUPER::_processLine(@_) if( $self->sheetname && lc($self->sheetname) eq 'raw' );
}

sub _getDateBegin { shift->{_periodStart} }
sub _getDateEnd   { shift->{_periodEnd} }
sub currencyCode  { shift->{_currencyCode} }

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