package BookPub::Import::Importer::ShawDigital::Version2;

use strict;

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

sub rListPrice {
    my $self         = shift;
    my $listPriceGBP = $self->_getByFieldName('listPriceGBP');
    my $listPriceUSD = $self->_getByFieldName('listPriceUSD');
    my $listPriceAUD = $self->_getByFieldName('listPriceAUD');
    my $listPriceINR = $self->_getByFieldName('listPriceINR');

    if ($listPriceGBP) {
        return $listPriceGBP;
    } elsif ($listPriceUSD) {
        return $listPriceUSD;
    } elsif ($listPriceAUD) {
        return $listPriceAUD;
    } elsif ($listPriceINR) {
        return $listPriceINR;
    } else {
        return;
    }
}

sub rListPriceCurrency {
    my $self         = shift;
    my $listPriceGBP = $self->_getByFieldName('listPriceGBP');
    my $listPriceUSD = $self->_getByFieldName('listPriceUSD');
    my $listPriceAUD = $self->_getByFieldName('listPriceAUD');
    my $listPriceINR = $self->_getByFieldName('listPriceINR');

    if ($listPriceGBP) {
        return 'GBP';
    } elsif ($listPriceUSD) {
        return 'USD';
    } elsif ($listPriceAUD) {
        return 'AUD';
    } elsif ($listPriceINR) {
        return 'INR';
    } else {
        return;
    }
}

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

    return $revenue;
}

1;