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

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


use lib '/app/tools/rps/lib';
use Common::FormObject;
use RPS::Product::Product;
use RPS::Product::ProductDigital;
use RPS::Catalog::AlbumSimple;
use RPS::LabelList;
use RPS::CountryList;
use Data::Dumper;


use base 'Common::FormObject';

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

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

  my $productID = $args{productID};
  assert($productID);
  $self->{Product} = RPS::Product::Product->new(productID => $productID);
  $self->{ProductDigital} = RPS::Product::ProductDigital->new(productID => $self->{Product}->ProductID());
  $self->{LabelList} = RPS::LabelList->new();

	my $countrySkipList = {};
	my $territories = $self->{ProductDigital}->{TerritoriesList}->access();
	my @territoryList = split(/\s+/, $territories);

	foreach my $code (@territoryList)
	{
		$countrySkipList->{$code} = 1;
		push @{$self->{ProductDigital}->{TerritoryList}->{Territory}}, { CountryCode => $code, Name => RPS::CountryList::CountryNameFor($code) };
	}

    $countrySkipList->{XU} = 1;
    $countrySkipList->{EU} = 1;
   
    $self->{CountryList} = RPS::CountryList->new(omit => $countrySkipList);

	$self->{Album} = RPS::Catalog::AlbumSimple->new(albumID => $self->{Product}->AssetID(), loadSubs => 0);

	return $self;
}

sub _propertyIsEditable
{
	my ($self, $propertyName) = @_;

	# The Product (and contained objects) can be edited.
	#
	if ($propertyName eq 'ProductDigital')
	{
		return 1;
	}
	return 0;
}

sub validate
{
	my ($self) = @_;

	# JPK - This is one of those situations where I _don't_ want to
	# validate everything this object contains.  It's a waste of time
	# to validate the <Album>, for example, since we don't support making
	# changes to it.
	#
	my $valid = $self->{ProductDigital}->validate();
	return $valid;
}

sub productID
{
	my ($self) = @_;

	return $self->{ProductDigital}->ProductID();
}

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

	return $self->{Album}->AlbumID();
}


sub save
{
	my ($self) = @_;

	my $userID = Common::RSApp::GetActiveUserID();


	# I need a way to simply save the product(s) that have been edited.
	#
	# !!! I may be able to rely on the DB::Item objects keeping track of
	#     their own dirtiness, and simply iterate over everything.
	#
	$self->{ProductDigital}->save();
}



###
1;#
###