#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Product::ProductDistributionList;

use strict;
use warnings;
use Data::Dumper;

use lib '/app/tools/distribution/lib';
use RPS::Product::ProductDistributionWithUPC;
use Distribution::DB::Item::ProductDistribution;

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


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

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

	my $distributionProcessID = $args{distributionProcessID};

	$self->{ProductDistribution} = [];

	my $collection = Distribution::DB::Item::ProductDistribution->GetAll( distributionProcessID => $distributionProcessID );

	while ($collection->hasNext())
	{
		my $processObj = $collection->next();
		push @{$self->{ProductDistribution}}, RPS::Product::ProductDistributionWithUPC->new(_dbItem => $processObj);
	}

    return $self;
}


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


1;