#------------------------------------------------------------
# Copyright (C) 2010 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Raptor::SaleReport::PeriodNav;
use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/common/lib';
use base 'Common::FormObject';

use lib '/app/tools/raptor/lib';
use Raptor::SaleReport::PeriodNavYear;
use Raptor::DB::Item::Sale;

sub _init {
    my ( $self, %args ) = @_;

    $self->_initProperties();

    return $self->SUPER::_init(%args);
}

sub _initProperties {
    my $self = shift;

    my ( $dateBegin, $dateEnd ) = Raptor::DB::Item::Sale->GetDateRange();
    my ($yearBegin) = split( /-/, $dateBegin );
    my ($yearEnd)   = split( /-/, $dateEnd );

    if ( $yearBegin && $yearEnd ) {
        $self->{Year} = () unless ( $self->{Year} );

        for ( my $year = $yearEnd ; $yearBegin <= $year ; $year-- ) {
            push( @{ $self->{Year} }, new Raptor::SaleReport::PeriodNavYear( begin => $dateBegin, end => $dateEnd, year => $year ) );
        }
    }
}

1;