#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::License::ReserveLiquidationList;

use strict;
use warnings;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ReserveLiquidation;
use RPS::License::ReserveLiquidation;

use Common::FormObject;
use base 'Common::FormObject';

use constant kMaxEntries => 8;

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

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

    my $id   = $args{id};
    my $type = $args{type};
    assert($type);

    $self->{ReserveLiquidation} = [];
    if ($id) {
        my $collection = RPS::DB::Item::ReserveLiquidation->GetByIDType( $id, $type );

        while ( $collection->hasNext() ) {
            my $obj = $collection->next();
            $self->{ReserveLiquidation}->[ $obj->period - 1 ] = RPS::License::ReserveLiquidation->new( _dbItem => $obj );
        }
    }

    # fill in the unused periods as place holders
    #
    for ( my $i = 0 ; $i < kMaxEntries ; $i++ ) {
        if ( !defined $self->{ReserveLiquidation}->[$i] ) {
            $self->{ReserveLiquidation}->[$i] = RPS::License::ReserveLiquidation->new();
        }

        # set Type now so we can validate later on
        #
        $self->{ReserveLiquidation}->[$i]->Type($type);
    }

    return $self;
}

sub _listProperties {
    return { ReserveLiquidation => 1 };
}

# This is the special sort of list accessor.
#
sub ReserveLiquidation {
    my ( $self, $index, $methodAddressList, $newValue ) = @_;

    if ( 0 == scalar @$methodAddressList ) {
        if ( defined $newValue ) {
            $self->{ReserveLiquidation}[$index] = $newValue;
        }
        return 1;
    }

    # May need to dynamically add objects to the list...
    #
    if ( !defined $self->{ReserveLiquidation}[$index] ) {
        $self->{ReserveLiquidation}[$index] = RPS::License::ReserveLiquidation->new();
    }

    return $self->{ReserveLiquidation}[$index]->_accessProperty( $methodAddressList, $newValue );
}

sub validate {
    my ($self) = @_;

    # my $valid = $self->SUPER::validate();
    my $valid = 1;

    my $sum = 0;
    foreach my $liq ( @{ $self->{ReserveLiquidation} } ) {
        if ( !$liq->validate() ) {
            $self->setError(Common::FormObject::kErrFieldInvalid);
            $valid = 0;
        } elsif ( $liq->Percent() ) {
            $sum += $liq->Percent();
        }
    }

    if ( $sum > 0 && $sum != 100 ) {
        $self->setError(Common::FormObject::kErrFieldInvalid);
        $valid = 0;
    }

    return $valid;
}

sub save {
    my ($self) = @_;

    foreach my $reserveLiq ( @{ $self->{ReserveLiquidation} } ) {
        $reserveLiq->save();
    }
}

sub getList {
    my ($self) = @_;

    return $self->{ReserveLiquidation};
}

1;