#---------------------------------------------------------------
# ____                   _ _         ____  _                    
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___ 
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/                            
#
# Copyright (C) 2007 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#---------------------------------------------------------------
package RPS::Statement::Mechanical::StatementLicense;

use strict;
use warnings;
use Carp;

use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::Assert;

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

use Common::FormObject;
use base 'Common::FormObject';


sub _init
{
    my ($self, %args) = @_;

    $self->SUPER::_init(%args);


    my %properties;
    if ($args{_dbItem})
    {
        $self->_propertiesFromDBItem(\%properties, $args{_dbItem});
    }
    elsif ($args{mechanicalStatementLicenseID})
    {
        $self->_propertiesFromDB(\%properties, $args{mechanicalStatementLicenseID});
    }
    else
    {
        $self->_propertiesFromDefaults(\%properties);
    }

    $self->_initProperties(\%properties);

    return $self;
}


sub _propertiesFromDB
{
    my ($self, $hrProperties, $id) = @_;
    assert(0, 'override this');
}


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;
    assert(0, 'override this');
}

sub _getCurrencyCode
{
    assert(0, 'override this');
}

sub _initProperties
{
    my ($self, $props) = @_;

    # !!! Assume USD for now...
    #
    my $currencyCode = $self->_getCurrencyCode();

    $self->{MechanicalStatementLicenseID}   = Common::FormObject::Scalar->new(value => $props->{mechanical_statement_license_id}, readOnly => 1);
    $self->{MechanicalStatementID}          = Common::FormObject::Scalar->new(value => $props->{mechanical_statement_id});
    $self->{TrackLicenseID}                 = Common::FormObject::Scalar->new(value => $props->{track_license_id});
    $self->{TransactionSubtotal}            = Common::FormObject::Scalar::Money->new(value => $props->{transaction_subtotal}, currencyCode => $currencyCode);
    $self->{Subtotal}                       = Common::FormObject::Scalar::Money->new(value => $props->{subtotal}, currencyCode => $currencyCode);
    $self->{PreviousAdvanceBalance}         = Common::FormObject::Scalar::Money->new(value => $props->{previous_advance_balance}, currencyCode => $currencyCode);
    $self->{AppliedToAdvance}               = Common::FormObject::Scalar::Money->new(value => $props->{applied_to_advance}, currencyCode => $currencyCode);
    $self->{AdvanceBalance}                 = Common::FormObject::Scalar::Money->new(value => $props->{advance_balance}, currencyCode => $currencyCode);
    $self->{AdjustedSubtotal}               = Common::FormObject::Scalar::Money->new(value => $props->{adjusted_subtotal}, currencyCode => $currencyCode);
    $self->{RegionID}                       = Common::FormObject::Scalar->new(value => $props->{region_id});
    $self->{Crossed}                        = Common::FormObject::Scalar::Boolean->new(value => $props->{crossed});


    my $statementID = $props->{mechanical_statement_id};
    my $trackLicenseID = $props->{track_license_id};

    $self->{MechanicalStatementItemList} = $self->_getStatementItemList($statementID, $trackLicenseID);

    $self->{MechanicalStatementAdjustmentItemList} = $self->_getStatementAdjustmentItemList($statementID, $trackLicenseID);

    $self->{MechanicalStatementLicenseTransactionList} = $self->_getLicenseTransactionList($props->{mechanical_statement_license_id});


        # We also want to display the license info here.
        #
        # jpk - the schema has changed...

    # !!! WTF?  This is not an XML object...
#        my $trackLicense = RPS::DB::Item::TrackLicense->Lookup(track_license_id => $props->{track_license_id});
#
#        $self->{TrackLicense} = $trackLicense;
}

sub _getStatementItemList
{
    my ($self, $statementID, $trackLicenseID) = @_;
    assert(0, 'override this');
}

sub _getStatementAdjustmentItemList
{
    my ($self, $statementID, $trackLicenseID) = @_;
    assert(0, 'override this');
}

sub _getLicenseTransactionList
{
    my ($self, $statementLicenseID) = @_;
    assert(0, 'override this');
}

sub numLineItems
{
    my ($self) = @_;
    return $self->{MechanicalStatementItemList}->numItems;
}

sub _propertiesFromDefaults
{
    my ($self, $hrProperties) = @_;
}


sub getDigitalPhysicalTotals
{
    my ($self) = @_;

    my $digital;
    my $physical;

    my $itemList = $self->{MechanicalStatementItemList}->getList();
    foreach my $item (@$itemList)
    {
        my $amount = $item->Amount();

        # Is this a physical or digital product?
        #
        if ('CD' eq $item->ConfigurationCode())
        {
            $physical += $amount;
        }
        else
        {
            $digital += $amount;
        }
    }

    return ($digital, $physical);
}



###
1;#
###