package RPS::Import::PocketGroup3;

use strict;

use Date::Calc qw(Days_in_Month Add_Delta_Days Decode_Month);

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

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::DB::Item::MediaType;

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

# map version num to the field order
my %fieldMap = (
    3 => {
        artist   => 1,
        title    => 2,
        date     => 3,
        units    => 8,
        price    => 14,
        currency => 14,    #header
        isrc     => 15,
    },
    4 => {
        artist   => 1,
        title    => 2,
        date     => 3,
        units    => 8,
        price    => 14,
        currency => 14,    #header
        isrc     => 15,
        upc      => 16,
        country  => 17,
    },
);

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

#public methods

sub _importLines {
    my $self        = shift;
    my %args        = @_;
    my $sheets      = $args{sheets};
    my $sheet_names = $args{sheet_names};
    my $fileObj     = $args{file};
    my $version     = $fileObj->VersionNum;

    return undef unless ($sheets);

    my $offsets = $fieldMap{$version};
    my $linenum;

    for ( my $sheet_i = 0 ; $sheet_i < @$sheets ; $sheet_i++ ) {
        $linenum = 1;
        my $sheet      = $sheets->[$sheet_i];
        my $sheet_name = $sheet_names->[$sheet_i];

        if ( $sheet_name =~ /Wallpapers/ ) {
            next;
        }

        my $currency;

        foreach my $line (@$sheet) {

            my $artist = $line->[ $offsets->{artist} ];
            my $isrc   = $line->[ $offsets->{isrc} ];
            my $title  = $line->[ $offsets->{title} ];
            my $units  = $line->[ $offsets->{units} ];
            my $price  = $line->[ $offsets->{price} ];
            my $upc    = $line->[ $offsets->{upc} ] if ( defined $offsets->{upc} );

            my $country;
            if ( defined $offsets->{country} ) {
                my $countryName = $line->[ $offsets->{country} ];
                my $countryCode = $Common::Consts::COUNTRY_CODE{ lc $countryName };
                if ($countryCode) {
                    $country = $countryCode;
                }
            } else {
                $country = 'GB';
            }

            if ( $artist eq 'Artist' ) {
                my $currencyHeader = $line->[ $offsets->{currency} ];
                if ( $currencyHeader =~ m/Content Owner Share \((\w{3})\)/i ) {
                    $currency = $1;
                }
                unless ( defined $currency ) {
                    $self->errstr( "couldn't get currency code from " . $line->[ $offsets->{currency} ] );
                    return undef;
                }
            }

            my $format;
            my $mediaType = RPS::DB::Item::MediaType::kMediaTypeAudio;

            if ( $sheet_name =~ /Ringback Tones/ ) {
                $format = RPS::File::Sale::FORMAT_RINGBACK;
            } elsif ( $sheet_name =~ /True Tones/ ) {
                $format = RPS::File::Sale::FORMAT_RINGTONE;
            } elsif ( $sheet_name =~ /Full Tracks/ ) {
                $format = RPS::File::Sale::FORMAT_DOWNLOAD;
            } elsif ( $sheet_name =~ /Videos/ ) {
                $format    = RPS::File::Sale::FORMAT_DOWNLOAD;             # was FORMAT_VIDEO (FB1324)
                $mediaType = RPS::DB::Item::MediaType::kMediaTypeVideo,;
            } else {
                $self->errstr("unknown format: $sheet_name");
                return undef;
            }

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

            $price /= $units if ( $units > 1 );

            if ( $units && $price && $title && $title !~ /item name/i && $format ) {
                my ( $dateBegin, $dateEnd ) = $self->_getDates( date_begin => $line->[ $offsets->{date} ] );
                unless ( defined $dateBegin && defined $dateEnd ) {
                    $self->errstr( "couldn't get dates from " . $line->[ $offsets->{date} ] );
                    return undef;
                }

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

                $sale->mediaType($mediaType);
                $sale->productType($prodtype);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->isrc($isrc);
                $sale->upc($upc);
                $sale->artistName($artist);
                $sale->trackName($title);
                $sale->formatType($format);
                $sale->units($units);
                $sale->price($price);
                $sale->countryCode($country);
                $sale->currencyCode($currency);
                $sale->lineNum($linenum);

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

    return $linenum;
}

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