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

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::CA::StatementLicense;
use RPS::DB::Item::CAMechanicalStatementLicense;

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

sub _getStatementLicenseCollectionByPublisherID {
    my ( $self, $statementID, $trackID, $publisherID ) = @_;
    return RPS::DB::Item::CAMechanicalStatementLicense->GetByMechanicalStatementIDTrackIDPublisherID( $statementID, $trackID,
        $publisherID );
}

sub _getStatementLicenseCollection {
    my ( $self, $statementID, $trackID ) = @_;
    return RPS::DB::Item::CAMechanicalStatementLicense->GetByMechanicalStatementIDTrackID( $statementID, $trackID );
}

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

1;