package BookPub::Import::Importer::Scribd::Version2;

use strict;

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

sub _fieldMap {
    {
        dateBegin  => 'A',
        rIsbn13    => 'C',
        rTitle     => 'B',
        rSales     => 'G',
        rReturns   => 'G',
        rListPrice => 'D',
        rRevenue   => 'E',
    };
}

sub _isValidSaleRecord {
    my $self = shift;

    return $self->rTitle && $self->dateBegin && $self->units;
}

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

    lc($ret) eq 'true' ? return 0 : return $revenue;

}

sub rUnits {
    my $self  = shift;
    my $value = $self->_getByFieldName('rSales');

        lc($value) eq 'false' ? return 1
      : lc($value) eq 'true'  ? return 0
      :                         $self->fail("Bad value in Refunded? column: $value");

}

sub rSales {
    my $self  = shift;
    my $value = $self->_getByFieldName('rSales');

    lc($value) eq 'false' ? return 1 : return;

}

sub rReturns {
    my $self  = shift;
    my $value = $self->_getByFieldName('rReturns');

    lc($value) eq 'true' ? return 0 : return;

}

1;