package RPS::Import::WDA2;

use strict;


use Date::Calc qw(Days_in_Month Add_Delta_Days);

use lib '/app/tools/common/lib';
use Common::Util;

use lib '/app/tools/data_classes/lib';

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

my %fieldMap =
(
	2 =>
	{
        label_col         => 2,
		date_col          => 5,
		client_product_id => 6,
		track_title       => 7,
		units             => 12,
		net_revenue       => 14,
	},
	3 =>
	{
        label_col         => 1,
		date_col          => 3,
		client_product_id => 4,
		track_title       => 7,
		units             => 13,
		net_revenue       => 15,
	},
	4 =>
	{
        label_col         => 2,
		date_col          => 5,
		track_title       => 6,
		units             => 10,
		isrc              => 8,
		net_revenue       => 12,
	},
);

#
# public methods
#

sub _importLines
{
    my $self = shift;
    my %args = @_;
    my $lines = $args{lines};
    my @sheets = @{ $args{sheets} };

    my $size_sheets = @sheets;

    my $version = $args{file}->VersionNum();
    my $offsets = $fieldMap{$version};


    return undef unless $lines;

    my $format   = RPS::File::Sale::FORMAT_RINGTONE;
    my $prodtype = RPS::File::Sale::TYPE_TRACK;

    my $linenum = 1;
    foreach my $sheet (@sheets){
    $linenum = 1;

     foreach my $line(@$sheet)
    {
        my $label = $line->[$offsets->{label_col}];
        my $date  = $line->[$offsets->{date_col}];
        my $client_product_id = $line->[$offsets->{client_product_id}] if( $offsets->{client_product_id} );
        my $isrc = $line->[$offsets->{isrc}] if( $offsets->{isrc} );
        my $track = $line->[$offsets->{track_title}];
        my $units = $line->[$offsets->{units}];
        my $revenue = $line->[$offsets->{net_revenue}];
        my $currency = 'USD' if( $version == 4 );

        my $price;

        my ($dateBegin, $dateEnd) = $self->_getDates($date);

        if($units > 0){
                $price = ($revenue / $units);
        }
        elsif($units < 0){
                $price = abs($revenue / $units);
        }




		if ($units && $label && $track && $price)
        {
            unless (defined $dateBegin && defined $dateEnd) {
                    $self->errstr("couldn't get dates from $date at line num $linenum");
                    return undef;
                }



#            my $convRate = ($currency ne 'USD') ? 0 : 1;



            my $sale = RPS::Import::SaleRec->new();

            $sale->productType($prodtype);
            $sale->formatType($format);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            #$sale->artistName($artist);
            #$sale->albumName($album);
            $sale->isrc($isrc);
            $sale->trackName($track);
            $sale->units($units);
            $sale->price($price);
            $sale->labelName($label);
            $sale->clientProductID($client_product_id);
            $sale->lineNum($linenum);
            $sale->countryCode('US');
            $sale->currencyCode($currency);

            #$args{dumper}($sale);
            $self->_insertSale(sale => $sale);
        }
        $linenum++;
    }


    }

    return $linenum;
}


#
# Private methods
#

sub _getDates
{
	my $self = shift;
	my $passed_date = shift;

	my $year;
	my $month;
	my $day;

	if($passed_date =~ /(\d{4})-(\d{2})-(\d{2})/){

	     ($year, $month, $day) = ($1, $2, $3);
	}
	elsif($passed_date =~ /^(\d+)$/){

	       ($year, $month, $day) = Add_Delta_Days(1900, 1, 1, $1 - 2);

	}
	else{
	       return undef;
	}

        my $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        my $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
        return ($dateBegin, $dateEnd);

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