package RPS::Import::DrumAndBassArena;

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 = (
    1 =>
    {
        type => 0,
        artist => 1,
        title => 2,
        upc => 3,
        isrc => 4,
        units => 6,
        price => 7,
        revenue => 13,     
    },
    2 =>
    {
        type        => 0,
        label       => 0,
        catalog_no  => 1,
        artist      => 2,
        title       => 3,
        upc         => 4,
        isrc        => 5,
        units       => 7,
        price       => 8,
        revenue     => 14,     
    },
);

#public methods

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

    my $lines = $args{lines};
    my $version = $args{file}->VersionNum();
    my $fileName = $args{file}->OrigFileName();
    my @sheets = @{ $args{sheets} };

    return undef unless ($lines);

    my $linenum = 1;
            
    my $offsets = $field_map{$version};
    my %errors = ();
    
    $fileName =~ s/_//g;
    
    my ($dateBegin, $dateEnd) = 
    $self->_getDates(date_begin=>$fileName, type=>'quarter');
    
    my $format = RPS::File::Sale::FORMAT_DOWNLOAD;
    my $currency = "GBP";
    my $country = "GB";
    
    my $label;
    foreach my $lines(@sheets)
    {
        
        $linenum = 1;
        
        foreach my $line(@$lines)
        {
            my $type = $line->[$offsets->{type}];
            my $artist = $line->[$offsets->{artist}];
            my $title = $line->[$offsets->{title}];
            my $upc = $line->[$offsets->{upc}];
            my $isrc = $line->[$offsets->{isrc}];
            my $units = $line->[$offsets->{units}];
            my $revenue = $line->[$offsets->{revenue}];
            my $album;
            my $track;
            my $productType;
            my $catalogNumber;
            if (defined $offsets->{catalog_no})
            {
                $catalogNumber = $line->[$offsets->{catalog_no}];
            }

            if (defined $offsets->{label})
            {
                if ($line->[$offsets->{label}] =~ /Label: (.+)/)
                {
                    $label = $1;
                    next;
                }
            }
        
            if($type && $artist && $title && $units =~ /\d+/ && $revenue =~ /\d+/) 
            {
#                unless ($dateBegin && $dateEnd) {
#                    $self->errstr("couldn't get dates from filename: $fileName");
#                    print STDERR "couldn't get dates from filename: $fileName";
#                    return undef;
#                }               
                
                if($type =~ /album/i){
                    $productType = RPS::File::Sale::TYPE_ALBUM;
                    $album = $title;              
                }
                elsif($type =~ /entire release/i)
                {
                    $productType = RPS::File::Sale::TYPE_ALBUM;
                    $album = $title;
                }
                elsif($type =~ /track/i){
                    $productType = RPS::File::Sale::TYPE_TRACK;
                    $track = $title;
                }
                else{
                    die "Unknown product type: $type at line num: $linenum";
#                    $self->errstr("unknown product type: $type at line num: $linenum");
#                    print STDERR "unknown product type: $type at line num: $linenum";
#                    return undef;
                }
                
                my $price = $revenue / $units if($units > 0);  
            
                my $sale = RPS::Import::SaleRec->new();
                $sale->productType($productType);
                $sale->formatType($format);
                $sale->mediaType(1);
                $sale->artistName($artist);
                $sale->albumName($album) if($album);
                $sale->trackName($track) if($track);
                $sale->upc($upc) if($upc);
                $sale->isrc($isrc) if($isrc);
                $sale->units($units);
                $sale->price($price);
                $sale->currencyCode($currency);
                $sale->countryCode($country);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->lineNum($linenum);
                $sale->serviceProductID($catalogNumber);
                $sale->labelName($label);
            
                #$args{dumper}($sale);  ## for cmd-line testing
                $self->_insertSale(sale => $sale);
            }
        
            $linenum++;
        }
    }
    

    return $linenum;
}

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