package RPS::Import::EMusicAudioBookBFM;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/common/lib';
#use Common::Util;
use Common::Util qw(normalize_date normalize_isrc);
use Common::Consts qw(%COUNTRY_CODE);

use lib '/app/tools/data_classes/lib';
use Client::Service;

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

my %field_map = (
    19 =>
    {
        statement_col=>1,
        date_col => 3,
        service_product_id => 0,
        client_product_id => 1,
        artist => 2,
        album => 4,
        units => 7,
        revenue => 9,
    },
);

#public methods

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

    my $lines = $args{lines};
    my $version = $args{file}->VersionNum();
    my $fileName = $args{file}->OrigFileName();
    my $fileObj = $args{file};
    my $clientID = $args{client_id};
    
    print STDERR "Client id: $clientID\n";
    
    if($clientID != 4){
         $self->errstr("Client not BFM digital, import cannot continue");
         print STDERR "Client not BFM digital, import cannot continue";
         return undef;
    }
    
    my @sheets = @{ $args{sheets} };

    return undef unless ($lines);

    my $linenum = 1;
            
    my $offsets = $field_map{$version};
    my %errors = ();
    
    my($dateBegin, $dateEnd); 
    
    my $format =  RPS::File::Sale::FORMAT_DOWNLOAD;
    my $type   =  RPS::File::Sale::TYPE_ALBUM;
    
    
    foreach my $line(@$lines)
    {
        my $album = $line->[$offsets->{album}];
        my $artist = $line->[$offsets->{artist}];
        my $units = $line->[$offsets->{units}];
        my $revenue = $line->[$offsets->{revenue}];  
        my $service_product_id = $line->[$offsets->{service_product_id}];
        my $client_product_id = $line->[$offsets->{client_product_id}];      
        
        my $price = abs($revenue);
        
        $price /= abs($units) if($units != 0);
        
        my $f_dateBegin;
        
        $f_dateBegin =~ s/\d{2},//;
        
        if($line->[$offsets->{statement_col}] =~ /statement summary/i){
             $f_dateBegin = $line->[$offsets->{date_col}];
             ($dateBegin, $dateEnd) = 
             $self->_getDates(date_begin=>$f_dateBegin, type=>"text");
            
        }
                  
        if($album && $artist && $units =~ /\d+/ && $revenue =~ /\d+/ &&
        $service_product_id && $client_product_id) 
        {
             unless ($dateBegin && $dateEnd) {
                $self->errstr("couldn't get dates from $f_dateBegin");
                print STDERR "couldn't get dates from $f_dateBegin";
                return undef;
            }           
            my $sale = RPS::Import::SaleRec->new();
            $sale->productType($type);
            $sale->formatType($format);
            $sale->mediaType(1);
            $sale->serviceProductID($service_product_id);
            $sale->clientProductID($client_product_id);                       
            $sale->albumName($album);
            $sale->artistName($artist);
            $sale->units($units); 
            $sale->price($price);           
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->countryCode('US');
            $sale->currencyCode('USD');
            $sale->lineNum($linenum);
            
            #$args{dumper}($sale);  ## for cmd-line testing
            
            $self->_insertSale(sale => $sale);
        }
        
        $linenum++;
    }
    

    return $linenum;
}

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