package BookPub::Import::Importer::Storytel::Version5;

use strict;
use warnings;

use Date::Calc qw(Days_in_Month);

use lib '/app/tools/bookpub/lib';
use parent 'BookPub::Import::Importer::Storytel::Version4';


sub _headerIdentifier { ( rIsbn13 => 'ISBN' ) }

sub _fieldMap {
    my $self = shift;

    my $sheet = lc( $self->sheetname || '' );
    return {} unless $sheet && $sheet =~ /A\-books/i;

    return {
        dateBegin          => 'Q',
        productType        => 'B',
        rAuthor            => 'A',
        rTitle             => 'B',
        rIsbn13            => 'C',
        rImprint           => 'P',
        countryCode        => 'E',
        rUnits             => 'G',
        rUnitPrice         => 'L',
        rListPrice         => 'L',
        rListPriceCurrency => 'L',
        rDiscount          => 'F',
        rRevenue           => 'M',
        currencyCode       => 'M1',
    }
}

sub _processSheet {
    my ( $self, $sheet, $sheetnum ) = @_;
    return unless $self->{sheetname} =~ /A\-books/i;

    return $self->BookPub::Import::Importer::_processSheet( $sheet, $sheetnum );
}

sub isFree {
    my $self = shift;

    my $rRevenue = $self->_getByFieldName('rRevenue') || 0;
    my $rUnits   = $self->_getByFieldName('rUnits')   || 0;

    return !$rRevenue && $rUnits ? 'Y' : 'N';
}


1;