package BookPub::Import::Importer::txtr::Version8;

use strict;

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

sub _fieldMap {
    {
        currencyCode       => 'F',
        countryCode        => 'N',
        dateBegin          => 'B',
        rIsbn13            => 'D',
        rTitle             => 'E',
        rListPrice         => 'L',
        rListPriceCurrency => 'J',
        rRevenue           => 'H',
    };
}

sub countryCode {
    my $self        = shift;
    my $countryCode = $self->_getByFieldName('countryCode');
    if ( $countryCode =~ /^\w+\.(\w{2})$/ ) {
        $countryCode = uc($1);
    }

    return $countryCode;
}

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