package BookPub::Import::Importer::GrandCanyonUniv::Version5;

use strict;
use warnings;

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

sub _fieldMap {
    {
        dateBegin        => 'O1',
        dateEnd          => 'O1',
        rAuthor          => 'E',
        rTitle           => 'D',
        rSubtitle        => 'D',
        rIsbn13          => 'K',
        rImprint         => 'I',
        rUnits           => 'O',
        rUnitPrice       => 'N',
        rListPrice       => 'M',
        rRevenue         => 'P',
    }
}

sub _isSaleRec {
    my $self = shift;

    return ( $self->rRevenue || $self->rUnits ) && $self->rTitle ? 1 : 0;
}

sub isFree {
    my $self = shift;

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

sub discount {
    my $self = shift;

    my $unit = $self->_getByFieldName('rUnitPrice') || 0;
    my $list   = $self->_getByFieldName('rListPrice') || 0;

    if ($list) {
        return 1 - ( $unit / $list );
    }

    return 0;
}

1;