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

use Carp;

use Data::Dumper;

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

use RPS::DB::Item::ControlledComposition;

use RPS::XMLObject;
use base 'RPS::XMLObject';

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

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

    if ( $args{_dbItem} ) {
        return $self->_initFromDBItem( $args{_dbItem} );
    } elsif ( $args{controlledCompositionID} ) {
        return $self->_initFromDBWithControlledCompID( $args{controlledCompositionID} );
    } elsif ( $args{contractID} ) {
        return $self->_initFromDBWithContractID( $args{contractID} );
    } else {
        return $self->_initWithDefaults();
    }
}

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

    my $dbItem = RPS::DB::Item::ControlledComposition->Lookup( controlled_composition_id => $id );
    return $self->_initFromDBItem($dbItem);
}

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

    my $dbItem = RPS::DB::Item::ControlledComposition->Lookup( artist_contract_id => $id );
    return $self->_initFromDBItem($dbItem);
}

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

    $self->_initProperties($dbItem);
    $self->_initSubs($dbItem);

    return $self;
}

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

    $self->{ControlledCompositionID} = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->controlled_composition_id, readOnly => 1 );
    $self->{ArtistContractID}        = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->artist_contract_id );
    $self->{PublisherID}             = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->publisher_id );
    $self->{TrackCap}                = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->track_cap );
    $self->{RateType}                = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->rate_type );
    $self->{RatePercentage}          = RPS::XMLObject::Scalar::Decimal->new( value => $dbItem->rate_type, precision => '5.4' );
    $self->{TermStart} = RPS::XMLObject::Scalar::Date->new( value => $dbItem->term_start );
    $self->{TermEnd}   = RPS::XMLObject::Scalar::Date->new( value => $dbItem->term_end );
    $self->{RateBasis} = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->rate_basis );    # !!!

    return $self;
}

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

    if ( $self->loadSubs() ) {
    }

    return $self;
}

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

    $self->{ControlledCompositionID} = RPS::XMLObject::Scalar::Integer->new( readOnly => 1 );
    $self->{ArtistContractID}        = RPS::XMLObject::Scalar::Integer->new();
    $self->{PublisherID}             = RPS::XMLObject::Scalar::Integer->new();
    $self->{TrackCap}                = RPS::XMLObject::Scalar::Integer->new();
    $self->{RateType}                = RPS::XMLObject::Scalar::Integer->new();
    $self->{RatePercentage}          = RPS::XMLObject::Scalar::Decimal->new( precision => '5.4' );
    $self->{TermStart}               = RPS::XMLObject::Scalar::Date->new();
    $self->{TermEnd}                 = RPS::XMLObject::Scalar::Date->new();
    $self->{RateBasis}               = RPS::XMLObject::Scalar::Integer->new();

    if ( $self->loadSubs() ) {
    }

    return $self;
}

###
1;    #
###