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

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::Product::PricingTierList;
use RPS::Catalog::AlbumSimple;
use RPS::LabelList;
use RPS::Product::ProductDigitalWithServices;
use Data::Dumper;


use base 'Common::FormObject';

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

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

    my $productID = $args{productID};
    assert($productID);

    $self->{PriceTiers} = RPS::Product::PricingTierList->new(productID => $productID);
    $self->{Product} = RPS::Product::Product->new(productID => $productID);
    $self->{ProductDigital} = RPS::Product::ProductDigitalWithServices->new(productID => $self->{Product}->ProductID());
	$self->{Album} = RPS::Catalog::AlbumSimple->new(albumID => $self->{Product}->AssetID(), loadSubs => 0);

	return $self;
}

sub save
{
	my ($self, $args) = @_;
	my @services = $self->{ProductDigital}->Services;
	my @keys = keys(%$args);

	Common::Log::Debug( "KEYS: @keys" );

	foreach my $service ( @services ) {
		# Toggle Delivery Approval
        my $key = "ServiceToggle_" . $service->ServiceID;
	    Common::Log::Debug( "Service: $key" );
		if( $args->{$key} ) {
		    $service->addDistribution( $self->{Product}->ProductID() );
		} else {
		    $service->removeDistribution( $self->{Product}->ProductID() );
		}

        if( $service->ServiceID ) {
            # Toggle Price Tier
            my $price_id = "ServicePricingTierID_" . $service->ServiceID;
            my $price_tier = new RPS::Product::PricingTier( servicePriceTierID => $args->{$price_id} );


            if( $args->{$price_id} ) {
	            Common::Log::Debug( "Setting Price Tier - Service: " . $service->ServiceID . ", Code: $args->{$price_id}" );
                $price_tier->togglePricingTier( service_id => $service->ServiceID,
                                                product_id => $self->{Product}->ProductID(),
                                                service_price_tier_id => $args->{$price_id} );
            } elsif( defined($args->{$price_id}) ) {
	            Common::Log::Debug( "Clear Price Tier: $price_id" );
                $price_tier->clearPricingTier( service_id => $service->ServiceID,
                                               product_id => $self->{Product}->ProductID(),
                                               service_price_tier_id => $args->{$price_id} );
            }
        }
	}

}




###
1;#
###