#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# 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.
###