#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Mechanical::CA::StatementTransactionList;

use strict;
use warnings;
use Carp;

use Data::Dumper;

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

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

use RPS::Statement::Mechanical::CA::StatementTransaction;
use RPS::DB::Item::CAMechanicalStatementTransaction;

use RPS::Statement::Mechanical::StatementTransactionList;
use base 'RPS::Statement::Mechanical::StatementTransactionList';

sub _getStatementTransactionCollection
{
    my ($self, $statementID) = @_;
    return RPS::DB::Item::CAMechanicalStatementTransaction->GetByMechanicalStatementID($statementID);
}


sub _getStatementTransaction
{
    my ($self, $dbItem) = @_;
    return RPS::Statement::Mechanical::CA::StatementTransaction->new(_dbItem => $dbItem);
}

1;