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

use strict;
use Data::Dumper;

use lib '/app/tools/rps/lib';

use RPS::DB::Item::PendingTransaction;
use RPS::Finance::PendingTransaction;

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

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

    my $accountID            = $args{accountID};
    my $startDate            = $args{startDate};
    my $endDate              = $args{endDate};
    my $showPaymentsOnlyFlag = $args{showPendingPaymentsOnly};

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

    $self->{PendingTransaction} = [];
    return $self if !defined $accountID;
    $self->{_accountID} = $accountID;

    my $collection = RPS::DB::Item::PendingTransaction->GetAccountTransactions(
        finance_account_id => $accountID,
        start_date         => $startDate,
        end_date           => $endDate,
        show_payments_only => $showPaymentsOnlyFlag,
    );

    while ( $collection->hasNext() ) {
        push @{ $self->{PendingTransaction} }, new RPS::Finance::PendingTransaction( _dbItem => $collection->next() );
    }

    return $self;
}

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

    my $valid = 1;
    foreach my $trans ( @{ $self->{PendingTransaction} } ) {
        next if ( !defined $trans || $trans->Delete() );

        if ( !$trans->validate() ) {
            $valid = 0;
        }
    }

    return $valid;
}

sub save {
    my ( $self, %args ) = @_;
    foreach my $trans ( @{ $self->{PendingTransaction} } ) {
        if ( defined $trans ) {
            $trans->save();
        }
    }
}

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

sub PendingTransaction {
    my ( $self, $index, $methodAddressList, $newValue ) = @_;

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

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

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

sub assignAccountID {
    my ( $self, $accountID, $currencyCode ) = @_;

    assert( $accountID, 'missing accountID' );

    $self->{_accountID} = $accountID;

    foreach my $trans ( @{ $self->{PendingTransaction} } ) {
        next if ( !$trans );
        $trans->AccountID($accountID);
        $trans->CurrencyCode($currencyCode) if $currencyCode;
    }

}

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

    return $self->{PendingTransaction};
}

###
1;    #
###