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

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ProductType;
use RPS::Product::TypeList;
use RPS::Product::StatusList;
use RPS::Product::ProductList;
use RPS::Mechanical::UK::McpsLicenseList;
use RPS::RoyaltyRun::RoyaltyRunStatusList;

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

sub GetNumUKLicenses {
    my ($albumID) = @_;

    # This will need to be updated to check for MCPS licenses _and_ direct license.
    # But for now, we'll only check for MCPS.

    my $collection = RPS::DB::Item::ProductType->GetPhysicalTypesByAlbum($albumID);
    return $collection->size();
}

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

    assert( $args{albumID} );

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

    #
    #
    $self->{McpsLicenseList} = RPS::Mechanical::UK::McpsLicenseList->new( albumID => $args{albumID} );

    # Licenses have product ids stored in them, so we need the full lists to map those to names.
    #
    #

    $self->{TypeList}    = RPS::Product::TypeList->new( albumID => $args{albumID}, physicalOnly => 1 );
    $self->{StatusList}  = RPS::Product::StatusList->new();
    $self->{ProductList} = RPS::Product::ProductList->new( albumID => $args{albumID}, loadSubs => 0 );

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

    return $self;
}

###
1;    #
###