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

use Carp;

use Data::Dumper;
use Date::Calc;

use lib '/app/tools/common/lib';
use Common::Client;
use Common::Assert;
#use Common::DiskCache;

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

use RPS::DB::Item::MechanicalStatementItem;
use RPS::Statement::Mechanical::US::StatementFull;
use RPS::Statement::Mechanical::US::HFA::StatementPublisherList;
use RPS::Statement::Mechanical::US::HFA::StatementTrackList;

use base 'RPS::Statement::Mechanical::US::StatementFull';



sub _numLines
{
    my ($self, $id) = @_;
    return RPS::DB::Item::MechanicalStatementItem->GetNumPositiveItemsByStatementID($id);
}

sub _getStatementPublisherList
{
    my ($self, $statementID, $focusPublisherID) = @_;

    return RPS::Statement::Mechanical::US::HFA::StatementPublisherList->new
    (
        mechanicalStatementID => $statementID,
        focusPublisherID => $focusPublisherID,
    );
}

sub _getStatementTrackList
{
    my ($self, $statementID) = @_;
    return RPS::Statement::Mechanical::US::HFA::StatementTrackList->new(mechanicalStatementID => $statementID);
}



###
1;#
###