package Period::QuarterPeriod;

use strict;

#use warnings;
use Carp;
use Date::Calc;

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

use constant DB_TABLE    => "period_quarter";
use constant PERIOD_TYPE => "Q";

# private attributes
my @attributes     = qw(quarter_id date_begin date_end quarter year);
my @xml_attributes = qw(PeriodID PeriodType StartDate EndDate Quarter Year);

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

# --------------------------------
# Constructor
# --------------------------------
sub new {
    my $class = shift;
    my %args  = @_;

    my $self = $class->SUPER::new(@_);
    $self->{dbo} = new Common::RSDB(%args);

    $self->_init(%args);

    return $self;
}

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

    # initialize user properties
    foreach (@attributes) {
        $self->{$_} = undef;
    }

    # initialize user objects
    $self->{errstr} = undef;

    # are we loading an existing Period?
    my $id = $args{period_id} || $args{quarter_id};
    if ( $id > 0 ) {
        $self->Load( quarter_id => $id );
    }
}

# --------------------------------
# Properties
# (quarter_id date_begin date_end quarter year);
# --------------------------------
sub PeriodID {
    my $self = shift;
    $self->{quarter_id};
}

sub PeriodType {
    return PERIOD_TYPE();
}

sub StartDate {
    my $self = shift;
    return $self->{date_begin};
}

sub EndDate {
    my $self = shift;
    return $self->{date_end};
}

sub Quarter {
    my $self = shift;
    return $self->{quarter};
}

sub Year {
    my $self = shift;
    return $self->{year};
}

sub GetObjectXML {
    my $self = shift;

    my $xml = $self->SUPER::GetObjectXML(@xml_attributes);

    # set period xml, this one, the dates and values for next/previous
    # we might want to add some date formatting later
    # start_month => substr(Date::Calc::Month_to_Text($start_month), 0, 3),
    my ( $s_year, $s_month, $s_day ) = split( '-', $self->StartDate );
    my $start_href = { Day => $s_day, Month => substr( Date::Calc::Month_to_Text($s_month), 0, 3 ), Year => $s_year };

    my ( $e_year, $e_month, $e_day ) = split( '-', $self->EndDate );
    my $end_href = { Day => $e_day, Month => substr( Date::Calc::Month_to_Text($e_month), 0, 3 ), Year => $e_year };

    $xml->{StartDateDisp} = $start_href;
    $xml->{EndDateDisp}   = $end_href;
    $xml->{PrevPeriodID}  = $self->GetPrevPeriodID();
    $xml->{NextPeriodID}  = $self->GetNextPeriodID();

    return $xml;
}

# look in agg_q_summary (quarter_id)
sub GetPrevPeriodID {
    my $self = shift;

    my $sql  = "SELECT max(quarter_id) as previous_id FROM agg_q_summary WHERE quarter_id < " . $self->PeriodID;
    my $sth  = $self->{dbo}->DoCmd($sql);
    my $href = $sth->fetchrow_hashref() if ($sth);
    if ($href) {
        return $href->{previous_id};
    } else {
        return undef;
    }
}

sub GetNextPeriodID {
    my $self = shift;

    my $sql  = "SELECT min(quarter_id) as next_id FROM agg_q_summary WHERE quarter_id > " . $self->PeriodID;
    my $sth  = $self->{dbo}->DoCmd($sql);
    my $href = $sth->fetchrow_hashref() if ($sth);
    if ($href) {
        return $href->{next_id};
    } else {
        return undef;
    }
}

sub Error {
    my $self = shift;
    $self->{errstr};
}

# -------------------------------
# Public Methods
# -------------------------------
sub LoadCurrent {
    my $self = shift;

    my $sql  = "SELECT max(quarter_id) as quarter_id FROM agg_q_summary";
    my $sth  = $self->{dbo}->DoCmd($sql);
    my $href = $sth->fetchrow_hashref() if ($sth);

    if ( $href && $href->{quarter_id} ) {
        $self->Load( period_id => $href->{quarter_id} );
    } else {
        return undef;
    }
}

sub Load {
    my $self      = shift;
    my %args      = @_;
    my $period_id = $args{period_id};

    ## this info is in RSCOMMON, so we have to connect there first.
    my $dbo_c = new Common::RSDB( client_id => 0 );

    my $select_sql;
    if ( defined $period_id && $period_id =~ /^\d+$/ ) {
        $select_sql = "SELECT * FROM " . DB_TABLE . " WHERE quarter_id=$period_id";
    } else {
        $self->{errstr} = "period_id ($period_id) not specified or not valid";
        return undef;
    }

    my $sth = $dbo_c->DoCmd($select_sql);
    if ( !defined $sth ) {
        $self->{errstr} = "database error: " . $DBI::errstr;
        return undef;
    }

    my $href = $sth->fetchrow_hashref();
    if ( !$href ) {
        $self->{errstr} = "no period defined for period_id=$period_id";
        return undef;
    }

    $self->_load($href);

    return 1;
}

# -------------------------------
# Private Methods
# -------------------------------
sub _load {
    my $self = shift;
    my $href = shift;

    map { $self->{$_} = $href->{$_} } @attributes;
}

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