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

use strict;
use warnings;
use Carp;

use Data::Dumper;

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

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

use RPS::DB::Item::CAMechanicalStatementTrack;
use RPS::DB::Item::Track;
use RPS::DB::Item::Album;
use RPS::Statement::Mechanical::CA::StatementLicenseList;
use RPS::Statement::Mechanical::CA::StatementCrossedLicenseTransactionList;
use RPS::Song::Song;

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


sub _propertiesFromDB
{
    my ($self, $hrProperties, $id) = @_;

    my $dbItem = RPS::DB::Item::CAMechanicalStatementTrack->Lookup(ca_mechanical_statement_track_id => $id);
    return $self->_propertiesFromDBItem($hrProperties, $dbItem);
}


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;

    $hrProperties->{mechanical_statement_track_id}  = $dbItem->ca_mechanical_statement_track_id;
    $hrProperties->{mechanical_statement_id}        = $dbItem->ca_mechanical_statement_id;
    $hrProperties->{track_id}                       = $dbItem->track_id;
    $hrProperties->{album_id}                       = $dbItem->album_id;
    $hrProperties->{subtotal}                       = $dbItem->subtotal;
    $hrProperties->{song_title}                     = $dbItem->song_title;
    $hrProperties->{publisher_id}                   = $dbItem->ca_publisher_id;
    $hrProperties->{crossed_transaction_subtotal}   = $dbItem->crossed_transaction_subtotal;
    $hrProperties->{crossed_subtotal}               = $dbItem->crossed_subtotal;
    $hrProperties->{crossed_previous_advance_balance} = $dbItem->crossed_previous_advance_balance;
    $hrProperties->{crossed_applied_to_advance}     = $dbItem->crossed_applied_to_advance;
    $hrProperties->{crossed_advance_balance}        = $dbItem->crossed_advance_balance;
    $hrProperties->{crossed_adjusted_subtotal}      = $dbItem->crossed_adjusted_subtotal;
}


sub _getCurrencyCode { return 'CAD'; }

sub _getCrossedLicenseList
{
    my ($self, $statementID, $trackID, $publisherID) = @_;

    return RPS::Statement::Mechanical::CA::StatementLicenseList->new
    (
        mechanicalStatementID => $statementID,
        trackID => $trackID,
        publisherID => $publisherID,
        crossed => 1,
    );
}


sub _getCrossedLicenseTransactionList
{
    my ($self, $statementID, $trackID, $publisherID) = @_;

    return RPS::Statement::Mechanical::CA::StatementCrossedLicenseTransactionList->new
    (
        mechanicalStatementID => $statementID,
        trackID => $trackID,
        publisherID => $publisherID,
    );
}


sub _getLicenseList
{
    my ($self, $statementID, $trackID, $publisherID) = @_;

    return RPS::Statement::Mechanical::CA::StatementLicenseList->new
    (
        mechanicalStatementID => $statementID,
        trackID => $trackID,
        publisherID => $publisherID,
    );
}



###
1;#
###