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

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

use lib '/app/tools/rps/lib';
use RPS::Catalog::AlbumSimple;

#use RPS::LabelList;
#use RPS::GenreList;

use RPS::Catalog::DATrackHash;

#use RPS::Catalog::ArtistList;
use RPS::Catalog::DAArtistList;
use RPS::Catalog::TrackHash;

#use RPS::Product::DAProduct;
use RPS::Product::PriceList;
use RPS::Product::StatusList;
use RPS::Product::TypeList;
use RPS::RoyaltyRun::RoyaltyRunStatusList;

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

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

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

    if ( $args{albumID} ) {
        $self->{Album} = $self->_instantiateAlbumObj( $args{albumID} );
    }

    $self->{TrackList} = $self->_instantiateTrackHash( $args{albumID} );

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

    $self->{TypeList} = RPS::Product::TypeList->new();

    return $self;
}

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

    return RPS::Catalog::AlbumSimple->new( albumID => $albumID, loadSubs => 0 );
}

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

    return RPS::Catalog::TrackHash->new( albumID => $albumID );
}

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

    # The Product (and contained objects) can be edited.
    #
    return 1 if $propertyName eq 'Album';
    return 1 if $propertyName eq 'TrackList';

    #    return 1 if $propertyName eq 'Product';

    return 0;
}

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

    my $valid = 1;

    my $validator = new Metadata::Validate::Harness( failState => Validate::kStatusWarn );

    if ( !$self->{TrackList}->validate( metadataValidator => $validator ) ) {

        #print STDERR "\n\nTRACKLIST INVALID: " . Dumper($self->{TrackList}) . "\n";
        $valid = 0;
    }

    return $valid;
}

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

    # This is where the interesting things occur.
    #
    # First, we want to save the album data.
    #
    # Next, we will save the track list.
    #
    # Last, the product.
    #
    $self->{TrackList}->save( $self->{Album}->AlbumID() );

}

sub albumID {
    my ($self) = @_;
    return $self->{Album}->AlbumID();
}

###
1;    #
###