package BookPub::Import::Importer::Sony::Version6;

use strict;

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

sub _fieldMap {
    {
        currencyCode => 'I',

        dateBegin => 'B',
        rFormat   => 'D',
        isbn      => 'C',

        rTitle     => 'N',
        rAuthor    => 'M',
        rSales     => 'K',
        rReturns   => 'K',
        rDiscount  => 'J',
        rListPrice => 'H',
    };
}

sub countryCode {
    my $self     = shift;
    my $filename = $self->filename();

    $filename =~ /for (\w\w) Territory/;

    return $1;
}

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