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

use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::McpsLicense;
use RPS::Mechanical::UK::McpsLicense;

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


#
# This class will contain the list of MCPS licenses for a given album
#



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

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

	my $albumID = $args{albumID};

    $self->{McpsLicense} = [];
	if ($albumID)
	{
		my $collection = RPS::DB::Item::McpsLicense->GetMcpsLicensesByAlbumID($albumID);

		while ($collection->hasNext())
		{
			my $obj = $collection->next();

			push @{$self->{McpsLicense}}, RPS::Mechanical::UK::McpsLicense->new(_dbItem => $obj);
		}
	}

    return $self;
}




sub _listProperties
{
    return
    {
        McpsLicense => 1
    };
}



# This is the special sort of list accessor.
#
sub McpsLicense
{
    my ($self, $index, $methodAddressList, $newValue) = @_;

    if (0 == scalar @$methodAddressList)
    {
        if (defined $newValue)
        {
            $self->{McpsLicense}[$index] = $newValue;
        }
		return 1;
    }

	# May need to dynamically add objects to the list...
	#
	if (! defined $self->{McpsLicense}[$index])
	{
		$self->{McpsLicense}[$index] = RPS::Mechanical::UK::McpsLicense->new();
	}


    return $self->{McpsLicense}[$index]->_accessProperty($methodAddressList, $newValue);
}


1;