package BookPub::Import::Importer::OverDrive::Version12;

use strict;
use Data::Dumper;

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

use lib '/app/tools/bookpub/lib';
use BookPub::Tracker::Service;
use base 'BookPub::Import::Importer';

sub _headerIdentifier { ( countryCode => 'CustomerCountry' ) }

sub priceType    { 'rrp' }
sub currencyCode { 'USD' }
sub purchaseType { BookPub::DB::Item::Sale::kPurchaseTypeDownload }

sub _fieldMap {
    {
        dateBegin    => 'A',
        countryCode  => 'M',
        isbn         => 'E',
        rTitle       => 'F',
        rAuthor      => 'I',
        rProductType => 'L',
    };
}

sub _unverifiedFieldMap {
    {
        originalAmountDue  => 'O',
        correctedAmountDue => 'P',
    };
}

sub _getDateBegin {
    my $self = shift;
    my $date = $self->_getByFieldName('dateBegin') || return;

    # the date is being returned in the "days since 1/1/1900" format, so we need
    # to convert it.  We'll check if it's a 5 digit number and greater than the
    # number of days since 1/1/1900 on 1/1/2006, which is 38716
    if ( $date =~ /^\d{5}$/ and $date > 38716 ) {
        $date = Spreadsheet::ParseExcel::Utility::ExcelFmt( "yyyy-mm-dd", $date );
        return $date;
    }

    return $date

}

sub _dateNormalization { 'month' }

sub _validTabNames { ['Library'] }

sub _isValidSaleRecord {
    my $self = shift;

    # Only process library tabs
    my $validTab;
    if ( $self->sheetname() =~ /Library$/i ) {
        $validTab = 1;
    }
    return undef unless $validTab;

    # Let's also get rid of the lines with 0 revenue.
    if ( $self->revenue == 0 ) {
        return undef;
    }

    return $self->SUPER::_isValidSaleRecord();
}

sub revenue {
    my $self = shift;
    my $orig = $self->_getByFieldName('originalAmountDue');
    my $corr = $self->_getByFieldName('correctedAmountDue');

    my $revenue = $corr - $orig;
    return $revenue;
}

sub _validateUnits {
    my ( $self, $saleRec ) = @_;
    my $units   = $saleRec->units;
    my $revenue = $saleRec->revenue;
}

sub productType {
    my $self = shift;
    my $type = lc( $self->rProductType ) || return;

    if ( $type =~ /ebook/i ) {
        $type = BookPub::DB::Item::Sale::kProductTypeEBook;
    } elsif ( $type =~ /audiobook/i ) {
        $type = BookPub::DB::Item::Sale::kProductTypeAudioBook;
    }

    return $type;
}

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