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

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::ArtistRoyaltyLicenseIncomeItem;
use RPS::DB::Item::NewArtistContract;
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{artistRoyaltyLicenseIncomeItemID} ) {

        # I'm pretty sure we'll always be instantiating with _dbItem
        #
        $self->_propertiesFromDB( \%properties, $args{artistRoyaltyLicenseIncomeItemID} );
    } 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::ArtistRoyaltyLicenseIncomeItem->Lookup( artist_royalty_license_income_item_id => $id );
    $self->_propertiesFromDBItem( $hrProperties, $dbItem );
}

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

    $hrProperties->{artist_royalty_license_income_item_id} = $dbItem->artist_royalty_license_income_item_id;
    $hrProperties->{license_income_id}                     = $dbItem->license_income_id;
    $hrProperties->{artist_royalty_statement_id}           = $dbItem->artist_royalty_statement_id;
    $hrProperties->{album_id}                              = $dbItem->album_id;
    $hrProperties->{track_id}                              = $dbItem->track_id;
    $hrProperties->{artist_contract_id}                    = $dbItem->artist_contract_id;
    $hrProperties->{license_income_type_id}                = $dbItem->license_income_type_id;
    $hrProperties->{rate}                                  = $dbItem->rate;
    $hrProperties->{units}                                 = $dbItem->units;
    $hrProperties->{revenue}                               = $dbItem->revenue;
    $hrProperties->{net_revenue}                           = $dbItem->net_revenue;
    $hrProperties->{memo}                                  = $dbItem->memo;
}

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

    $self->{ArtistRoyaltyLicenseIncomeItemID} =
      Common::FormObject::Scalar->new( value => $props->{artist_royalty_license_income_item_id}, readOnly => 1 );
    $self->{LicenseIncomeID}          = Common::FormObject::Scalar->new( value => $props->{license_income_id} );
    $self->{ArtistRoyaltyStatementID} = Common::FormObject::Scalar->new( value => $props->{artist_royalty_statement_id} );
    $self->{AlbumID}                  = Common::FormObject::Scalar->new( value => $props->{album_id} );
    $self->{TrackID}                  = Common::FormObject::Scalar->new( value => $props->{track_id} );
    $self->{ArtistContractID}         = Common::FormObject::Scalar->new( value => $props->{artist_contract_id} );
    $self->{LicenseIncomeTypeID}      = Common::FormObject::Scalar->new( value => $props->{license_income_type_id} );
    $self->{Rate} = Common::FormObject::Scalar::Decimal->new( value => $props->{rate}, precision => '.2' );
    $self->{Units} = Common::FormObject::Scalar::Integer->new( value => $props->{units} );
    $self->{Revenue}    = Common::FormObject::Scalar::Money->new( value => $props->{revenue} );
    $self->{NetRevenue} = Common::FormObject::Scalar::Money->new( value => $props->{net_revenue} );
    $self->{Memo} = Common::FormObject::Scalar::String->new( value => $props->{memo} );
}

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

    if ( $self->loadSubs() ) {

        # then let's get the track 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();
        }

        # then let's get the contract info
        #
        my $contractObj = RPS::DB::Item::NewArtistContract->Lookup( artist_contract_id => $props->{artist_contract_id} );
        if ($contractObj) {
            my $contractTitle = $contractObj->title;
            $contractTitle =~ s/^\s+//;
            $contractTitle =~ s/\s+$//;
            $self->{ContractTitle} = Common::FormObject::Scalar::String->new( value => $contractTitle );
        } else {
            $self->{ContractTitle} = Common::FormObject::Scalar::String->new();
        }
    }
}

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

###
1;    #
###