package BookPub::Import::Importer::txtr::Version9;

use strict;

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

#use base 'BookPub::Import::Importer::txtr::Version2';

sub _fieldMap {
    {
        priceType          => 'AL',
        currencyCode       => 'N',
        countryCode        => 'AB',
        dateBegin          => 'B',
        rFormat            => 'G',
        rIsbn13            => 'D',
        rTitle             => 'F',
        rAuthor            => 'E',
        rListPrice         => 'I',
        rListPriceCurrency => 'H',
        rDiscount          => 'AK',
        rRevenue           => 'P',
    };
}

sub _useIsSaleRec     { 0 }
sub units             { 1 }
sub _headerIdentifier { ( rTitle => 'Title' ) }
sub purchaseType      { BookPub::DB::Item::Sale::kPurchaseTypeDownload }
sub productType       { BookPub::DB::Item::Sale::kProductTypeEBook }

sub rRevenue {
    my $self    = shift;
    my $revenue = $self->_getByFieldName('rRevenue');

    Log->info("rRevenue: $revenue");
    return $revenue;

}

sub priceType {
    my $self = shift;
    my $type = $self->_getByFieldName('priceType') || return;

    my $typeID =
        $type == 1  ? 'rrp'
      : $type == 2  ? 'rrp'
      : $type == 41 ? 'agency'
      : $type == 42 ? 'agency'
      :               undef;

    $self->fail("Unknown price type '$type'") unless ($typeID);

    return $typeID;
}

sub isFree {
    my $self    = shift;
    my $revenue = $self->_getByFieldName('rRevenue');

    if ( $revenue == 0 ) {
        return 'Y';
    }
    return 'N';
}

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