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

use strict;
use warnings;
use Carp;

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

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

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

sub _getStatementCollection
{
    my ($self, $runID, $payorID, $filterBy) = @_;

    my $collection = RPS::DB::Item::CAMechanicalStatement->Get
    (
        runID => $runID,
        payorID => $payorID,
        sortByPublisherName => 1,
        filterBy => $filterBy,
    );
        
    return $collection;
}

1;