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

use strict;
use warnings;
use Carp;

use Data::Dumper;

use lib '/app/tools/common/lib';

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

use RPS::Statement::Mechanical::StatementTrackList;
use RPS::Statement::Mechanical::CA::StatementTrack;
use RPS::DB::Item::CAMechanicalStatementTrack;

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

sub _getStatementTrackCollectionWithPublisherID
{
    my ($self, $statementID, $publisherID) = @_;
    return RPS::DB::Item::CAMechanicalStatementTrack->GetByMechanicalStatementIDPublisherID($statementID, $publisherID);
}

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

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

1;