package RPS::ArtistRoyalty::Fast::TermType;

use strict;

use lib '/app/tools/rps/lib';
use lib '/app/tools/common/lib';
#use lib '..';
use Common::RSMath;
use RPS::File::Sale;
use RPS::ArtistRoyalty::Fast::Static::Sales;
use RPS::ArtistRoyalty::Fast::Static::ProductTerms;
use RPS::ArtistRoyalty::Fast::Static::Terms;
use RPS::DB::Item::IncomeSource;
use RPS::DB::Item::PriceLevel;
use RPS::DB::Item::ContractRateType;
use RPS::ArtistRoyalty::Fast::TermType::Retail;
use RPS::ArtistRoyalty::Fast::TermType::Wholesale;
use RPS::ArtistRoyalty::Fast::TermType::PPD;
use RPS::ArtistRoyalty::Fast::TermType::Average;
use RPS::ArtistRoyalty::Fast::TermType::Revenue;
use RPS::ArtistRoyalty::Fast::TermType::Fixed;
use RPS::ArtistRoyalty::Fast::TermType::DocumentRetail;
use RPS::ArtistRoyalty::Fast::TermType::DocumentWholesale;
use RPS::ArtistRoyalty::Fast::TermType::NonPayable;

# This package will just be the Factory.
#

sub GetTermObj
{
    my ($class, $termID, $termData) = @_;

    # !!! I don't want to waste time allocating memory to hold this data.
    # !!! I think I might be able to simply bless the term data reference.
    # !!! My goal here is to attach the correct methods to the data.
    #
    my $termRef = $termData->{$termID};
Log->info("GetTermObj : termRef = ", $termRef);

    my $rateType = $termRef->[RPS::ArtistRoyalty::Fast::Static::Terms::kContractRateTypeID];

    my $rateClass = (
        RPS::DB::Item::ContractRateType::kRateTypePercentRetail         == $rateType ? 'Retail' :
        RPS::DB::Item::ContractRateType::kRateTypePercentWholesale	    == $rateType ? 'Wholesale' :
        RPS::DB::Item::ContractRateType::kRateTypePercentPPD            == $rateType ? 'PPD' :
        RPS::DB::Item::ContractRateType::kRateTypePercentAverage        == $rateType ? 'Average' :
        RPS::DB::Item::ContractRateType::kRateTypePercentRevenue        == $rateType ? 'Revenue' :
        RPS::DB::Item::ContractRateType::kRateTypeFixed			        == $rateType ? 'Fixed' :
        RPS::DB::Item::ContractRateType::kRateTypePercentDocumentRetail	== $rateType ? 'DocumentRetail' :
        RPS::DB::Item::ContractRateType::kRateTypePercentDocumentWholesale == $rateType ? 'DocumentWholesale' :
        RPS::DB::Item::ContractRateType::kRateTypeNonPayable                == $rateType ? 'NonPayable' :
        undef);
        # Ignoring non payable for now, I think we can filter these out in the initial product term query.
        # !!! Unless we have to freaking report on them for some reason...
        #
        #use constant kRateTypeNonPayable	    => 9;

    die "ERROR: No rate class for rate type '$rateType'  termID=$termID" unless $rateClass;

    $rateClass = "RPS::ArtistRoyalty::Fast::TermType::$rateClass";
#    require "$rateClass";

    return bless $termRef, $rateClass;
}

1;