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

use strict;
use Carp;
use Data::Dumper;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ArtistRoyaltyIncomeItem;
use RPS::DB::Item::Album;
use RPS::DB::Item::Track;

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


sub _init
{
    my ($self, %args) = @_;
    my $timer = Common::Timer->new();

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

    my %properties;
    if ($args{_dbItem})
    {
        $self->_propertiesFromDBItem(\%properties, $args{_dbItem});
    }
    elsif ($args{artistRoyaltyIncomeItemID})
    {
		# I'm pretty sure we'll always be instantiating with _dbItem
		#
        $self->_propertiesFromDB(\%properties, $args{artistRoyaltyIncomeItemID});
    }
    else
    {
        $self->_propertiesFromDefaults(\%properties);
    }

    $self->_initProperties(\%properties);
    $self->_initSubs(\%properties);

    return $self;
}


sub _propertiesFromDB
{
    my ($self, $hrProperties, $id) = @_;
    my $timer = Common::Timer->new();

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


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;
    my $timer = Common::Timer->new();

    $hrProperties->{artist_royalty_income_item_id}	= $dbItem->artist_royalty_income_item_id;
    $hrProperties->{artist_royalty_album_id}		= $dbItem->artist_royalty_album_id;
    $hrProperties->{album_id}						= $dbItem->album_id;
    $hrProperties->{track_id}						= $dbItem->track_id;
    $hrProperties->{artist_contract_term_id}		= $dbItem->artist_contract_term_id;
    $hrProperties->{income_source_id}				= $dbItem->income_source_id;
    $hrProperties->{region_id}						= $dbItem->region_id;
    $hrProperties->{channel_id}						= $dbItem->channel_id;
    $hrProperties->{price_level_id}					= $dbItem->price_level_id;
    $hrProperties->{contract_rate_type_id}			= $dbItem->contract_rate_type_id;
    $hrProperties->{rate}							= $dbItem->rate;
    $hrProperties->{rate_reduction}					= $dbItem->rate_reduction;
    $hrProperties->{percentage_of_sales}			= $dbItem->percentage_of_sales;
    $hrProperties->{packaging_deduction}			= $dbItem->packaging_deduction;
    $hrProperties->{free_goods_deduction}			= $dbItem->free_goods_deduction;
    $hrProperties->{sales}							= $dbItem->sales;
    $hrProperties->{returns}						= $dbItem->returns;
    $hrProperties->{units_reserved}					= $dbItem->units_reserved;
    $hrProperties->{revenue_reserved}				= $dbItem->revenue_reserved;
    $hrProperties->{units_liquidated}				= $dbItem->units_liquidated;
    $hrProperties->{revenue_liquidated}				= $dbItem->revenue_liquidated;
    $hrProperties->{net_units}						= $dbItem->net_units;
    $hrProperties->{revenue}					    = $dbItem->revenue;
    $hrProperties->{net_revenue}					= $dbItem->net_revenue;
    $hrProperties->{net_rate}						= $dbItem->net_rate;
    $hrProperties->{uses_default_net_rate}			= $dbItem->uses_default_net_rate;
    $hrProperties->{price}							= $dbItem->price;
    $hrProperties->{total}							= $dbItem->total;

    $hrProperties->{base_rate}						= $dbItem->base_rate;
    $hrProperties->{prorate_track_count}			= $dbItem->prorate_track_count;
}

sub _initProperties
{
    my ($self, $props) = @_;
    my $timer = Common::Timer->new();

    $self->{ArtistRoyaltyIncomeItemID}  = Common::FormObject::Scalar->new(value => $props->{artist_royalty_income_item_id}, readOnly => 1);
    $self->{ArtistRoyaltyAlbumID}		= Common::FormObject::Scalar->new(value => $props->{artist_royalty_album_id});
    $self->{AlbumID}					= Common::FormObject::Scalar->new(value => $props->{album_id});
    $self->{UPC}						= Common::FormObject::Scalar->new(value => $props->{upc_ean});
    $self->{TrackID}					= Common::FormObject::Scalar->new(value => $props->{track_id});
    $self->{ArtistContractTermID}		= Common::FormObject::Scalar->new(value => $props->{artist_contract_term_id});
    $self->{IncomeSourceID}				= Common::FormObject::Scalar->new(value => $props->{income_source_id});
    $self->{RegionID}					= Common::FormObject::Scalar->new(value => $props->{region_id});
    $self->{ChannelID}					= Common::FormObject::Scalar->new(value => $props->{channel_id});
    $self->{PriceLevelID}				= Common::FormObject::Scalar->new(value => $props->{price_level_id});
    $self->{ContractRateTypeID}			= Common::FormObject::Scalar->new(value => $props->{contract_rate_type_id});
    $self->{Rate}						= Common::FormObject::Scalar::Decimal->new(value => $props->{rate});
    my $rateReduction = $props->{rate_reduction};
    $rateReduction = 100 unless $rateReduction > 0;
    $self->{RateReduction}				= Common::FormObject::Scalar::Percent->new(value => $rateReduction);
    my $percentOfSales = $props->{percentage_of_sales};
    $percentOfSales = 100 unless $percentOfSales > 0;
    $self->{PercentageOfSales}			= Common::FormObject::Scalar::Percent->new(value => $percentOfSales);
    $self->{PackagingDeduction}			= Common::FormObject::Scalar::Percent->new(value => $props->{packaging_deduction});
    $self->{FreeGoodsDeduction}			= Common::FormObject::Scalar::Percent->new(value => $props->{free_goods_deduction});
    $self->{Sales}						= Common::FormObject::Scalar::Integer->new(value => $props->{sales});
    $self->{Returns}					= Common::FormObject::Scalar::Integer->new(value => $props->{returns});
    $self->{UnitsReserved}				= Common::FormObject::Scalar::Integer->new(value => $props->{units_reserved});
    $self->{UnitsLiquidated}			= Common::FormObject::Scalar::Integer->new(value => $props->{units_liquidated});
    $self->{RevenueLiquidated}			= Common::FormObject::Scalar::Money->new(value => $props->{revenue_liquidated});
    $self->{RevenueReserved}			= Common::FormObject::Scalar::Money->new(value => $props->{revenue_reserved});
    $self->{NetUnits}					= Common::FormObject::Scalar::Integer->new(value => $props->{net_units});
    $self->{Revenue}					= Common::FormObject::Scalar::Money->new(value => $props->{revenue});
    $self->{NetRevenue}					= Common::FormObject::Scalar::Money->new(value => $props->{net_revenue});
    $self->{NetRate}					= Common::FormObject::Scalar::Decimal->new(value => $props->{net_rate});
    $self->{UsesDefaultNetRate}			= Common::FormObject::Scalar->new(value => $props->{uses_default_net_rate});
    $self->{Price}						= Common::FormObject::Scalar::Money->new(value => $props->{price});
    $self->{Total}						= Common::FormObject::Scalar::Money->new(value => $props->{total});

    $self->{BaseRate}					= Common::FormObject::Scalar::Decimal->new(value => $props->{base_rate});
    $self->{ProrateTrackCount}			= Common::FormObject::Scalar->new(value => $props->{prorate_track_count});
}


sub _initSubs
{
    my ($self, $props) = @_;
    my $timer = Common::Timer->new();

	if($self->loadSubs())
	{
        # then let's get the album info
        #
        my $trackObj = RPS::DB::Item::Track->Lookup(track_id => $props->{track_id});
		if($trackObj)
		{
			my $trackTitle = $trackObj->title;
			$trackTitle =~ s/^\s+//;
			$trackTitle =~ s/\s+$//;
			$self->{TrackName} = Common::FormObject::Scalar::String->new(value => $trackTitle);
		}
        else
        {
            $self->{TrackName} = Common::FormObject::Scalar::String->new();
        }
	}
}


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


###
1;#
###