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

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

use RPS::DB::Item::FinanceTransaction;
use RPS::Finance::Transaction;

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


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

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

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


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

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

	while ($collection->hasNext())
	{
		my $transactionData = $collection->next();

		push @{$self->{Transaction}}, new RPS::Finance::Transaction(_dbItem => $transactionData);
	}

	return $self;
}


# Declaring no accessors - This is not intended to be editable.



###
1;#
###