package RPS::Import::Echo;

use strict;

use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/common/lib';
use Common::Util;
use Common::Consts;

use lib '/app/tools/data_classes/lib';

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::Import::Importer;
use base 'RPS::Import::Importer';

use constant FIELD_ALBUM     => 0;
use constant FIELD_UNITS     => 1;
use constant FIELD_WHOLESALE => 2;
use constant FIELD_PRICE     => 3;

#public methods

sub _importLines {
    my $self = shift;
    my %args = @_;

    my $retval      = undef;
    my $sheets      = $args{sheets};
    my $sheet_names = $args{sheet_names};

    my $linenum;

    for ( my $sheet_i = 0 ; $sheet_i < @$sheets ; $sheet_i++ ) {
        my $sheet      = $sheets->[$sheet_i];
        my $sheet_name = $sheet_names->[$sheet_i];

        my $dateBegin;
        my $dateEnd;

        ( $dateBegin, $dateEnd ) = $self->_getDates($sheet_name);

        unless ( $dateBegin && $dateEnd ) {
            $self->errstr( "couldn't get dates from " . $sheet_name );
            return undef;
        }

        $linenum = 1;
        foreach my $line (@$sheet) {
            my $prodtype    = RPS::File::Sale::TYPE_PHYSICAL;
            my $price_level = RPS::File::Sale::PLEVEL_UNKNOWN;
            my $channel     = RPS::File::Sale::CHANNEL_RETAIL;
            my $album       = $line->[FIELD_ALBUM];

            if ( $album =~ m/^\s*(TOTAL\:)?\s*$/ ) {
                $linenum++;
                next;
            }

            my ($units)           = $line->[FIELD_UNITS] =~ m/^(-?\d+)$/;
            my ($price)           = $line->[FIELD_PRICE] =~ m/^(-?\d*\.?\d*)$/;
            my ($wholesale_price) = $line->[FIELD_WHOLESALE] =~ m/^(-?\d*\.?\d*)$/;

            my $catno = "";

            if ( $album =~ m/^(.*)\s*\[([^\]]+)\]\s*$/ ) {
                $album = $1;
                $catno = $2;
            } elsif ( $album =~ m/^\[([^\]]+)\]\s*(.*)\s*$/ ) {
                $catno = $1;
                $album = $2;
            }

            if ( $prodtype && $units && $price && $album ) {
                my $sale = RPS::Import::SaleRec->new();

                $sale->productType($prodtype);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->clientProductID($catno);
                $sale->albumName($album);
                $sale->wholesalePrice($wholesale_price);
                $sale->sales($units);
                $sale->salesRevenue($price);
                $sale->totalRevenue($price);
                $sale->priceLevel($price_level);
                $sale->channel($channel);
                $sale->countryCode('US');
                $sale->lineNum($linenum);

                ##$args{dumper}($sale);  ## for cmd-line testing
                $self->_insertSale( sale => $sale );
            }
            $linenum++;
        }
    }

    return $linenum;
}

#
# Private methods
#

sub _getDates {
    my $self = shift;
    my $date = shift;

    my ( $dateBegin, $dateEnd );

    if ( $date =~ m/^Q(\d)_(\d{4})$/ ) {

        my $qtr  = $1;
        my $year = $2;

        if ( $qtr == 1 ) {
            $dateBegin = $year . "-01-01";
            $dateEnd = $year . "-03-" . Days_in_Month( $year, 3 );
        } elsif ( $qtr == 2 ) {
            $dateBegin = $year . "-04-01";
            $dateEnd = $year . "-06-" . Days_in_Month( $year, 6 );
        } elsif ( $qtr == 3 ) {
            $dateBegin = $year . "-07-01";
            $dateEnd = $year . "-09-" . Days_in_Month( $year, 9 );
        } elsif ( $qtr == 4 ) {
            $dateBegin = $year . "-10-01";
            $dateEnd = $year . "-12-" . Days_in_Month( $year, 12 );
        }
    } else {
        return undef;
    }

    return ( $dateBegin, $dateEnd );
}

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