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

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

use lib '/app/tools/rps/lib';
use RPS::License::BaseEditForm;
use RPS::License::CA::TrackLicenseWithLiquidationSchedule;
use RPS::License::CA::PublicDomain;
use RPS::License::CA::ControlledComposition;
use RPS::DB::Item::CATrackLicense;
use RPS::RoyaltyRun::RoyaltyRunStatusList;

use base 'RPS::License::BaseEditForm';

sub _init {
    my $self = shift;

    $self->SUPER::_init(@_);

    my $payorID = $self->{TrackLicense}->PayorID()
      if ( $self->{TrackLicense} );

    $self->{RoyaltyRunStatus} = new RPS::RoyaltyRun::RoyaltyRunStatusList( caMechanical => 1 );

    #$self->{RoyaltyRunStatus}->{ByPayorID} = new RPS::RoyaltyRun::RoyaltyRunStatusList( caMechanical => 1, payorID => $payorID )
    #    if( $payorID );

    return $self;
}

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

    # If we're being passed an actual TrackLicenseID, then we can fetch the db item directly.
    # And by examining the 'type' column, that will let us know what class to use.
    #
    if ( $args{trackLicenseID} ) {
        my $dbItem = RPS::DB::Item::CATrackLicense->Lookup( ca_track_license_id => $args{trackLicenseID} );
        die "ERROR - unable to load track license with id " . $args{trackLicenseID} unless $dbItem;

        # !!! This logic used to be buried in the TrackLicense form object code.
        #
        if ( RPS::DB::Item::CATrackLicense::kPublishingLicense == $dbItem->type ) {
            return RPS::License::CA::TrackLicenseWithLiquidationSchedule->new( _dbItem => $dbItem );
        }

        if ( RPS::DB::Item::CATrackLicense::kControlledComposition == $dbItem->type ) {
            return RPS::License::CA::ControlledComposition->new( _dbItem => $dbItem );
        }

        if ( RPS::DB::Item::CATrackLicense::kPublicDomain == $dbItem->type ) {
            return RPS::License::CA::PublicDomain->new( _dbItem => $dbItem );
        }

        die "ERROR - unknown type for track license " . $args{trackLicenseID};
    }

    my $licenseType = $args{licenseType};

    if ( $licenseType == RPS::DB::Item::TrackLicense::kPublicDomain ) {
        return RPS::License::CA::PublicDomain->new( trackID => $args{trackID} );
    }

    if ( $args{controlledCompositionID} ) {
        return RPS::License::CA::ControlledComposition->new( trackID => $args{trackID} );
    }

    return RPS::License::CA::TrackLicenseWithLiquidationSchedule->new( trackID => $args{trackID} );
}

###
1;    #
###