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

use strict;
use warnings;

use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::RSApp;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::Track;
use RPS::DB::Item::Artist;
use RPS::DB::Item::TrackLicense;
use RPS::DB::Item::TrackContract;

#use RPS::DB::Item::ProductTrack;
#use RPS::DB::Item::Product;
use RPS::Master::Master;
use RPS::DB::Item::Album;

use Common::FormObject;

use RPS::Track::Track;
use base 'RPS::Track::Track';

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

    my $dbObj = $self->_saveTrack();
    $self->_saveProductTrack($dbObj);
    $self->{AdditionalArtistList}->save( trackID => $self->TrackID )
      if ( $self->{AdditionalArtistList} );
    $self->_init( _dbItem => $dbObj );
}

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

    if ( $self->Delete() ) {
        $self->delete($albumID);
        return;
    }

    if ( !$self->{_hasData} ) {
        return;
    }

    $self->AlbumID($albumID);

    #$self->TrackOrder($$trackOrderRef++);

    my $dbObj = $self->_saveTrack();

    #$self->_saveProductTrack($dbObj, $productID);
    $self->_init( _dbItem => $dbObj );
}

sub _saveProductTrack {
    my ( $self, $trackDBObj ) = @_;

    my $albumProduct = RPS::DB::Item::Product->GetDigitalAlbumProduct( $self->AlbumID() );

    # Create/update the track product for this track.
    #
    my $trackProduct = RPS::DB::Item::Product->GetDigitalTrackProduct( $trackDBObj->track_id, $albumProduct->product_id );
    if ( !$trackProduct ) {
        $trackProduct = RPS::DB::Item::Product->Create(
            product_type_id   => RPS::DB::Item::Product::kProductTypeDigitalTrack,
            parent_product_id => $albumProduct->product_id,
            asset_id          => $trackDBObj->track_id,
        );
    }

    # Sync the track product with the main digital album product.
    #
    $trackProduct->product_code( $albumProduct->product_code );
    $trackProduct->upc_ean( $albumProduct->upc_ean );
    $trackProduct->release_date( $albumProduct->release_date );
    $trackProduct->product_status_id( $albumProduct->product_status_id );

    $trackProduct->save();

    # Create/update the product_track table entry
    #
    # !!! Here is my chance to set the disc and track num correctly...
    #
    my $productTrack = RPS::DB::Item::ProductTrack->Lookup(
        product_id => $albumProduct->product_id,
        track_id   => $trackDBObj->track_id,
    );

    if ( !$productTrack ) {
        my ( $nextDiscNum, $nextDiscTrack ) = RPS::DB::Item::ProductTrack->GetNextDiscNumAndDiscTrack( $albumProduct->product_id );
        $productTrack = RPS::DB::Item::ProductTrack->Create(
            product_id  => $albumProduct->product_id,
            track_id    => $trackDBObj->track_id,
            disc_number => $nextDiscNum,
            disc_track  => $nextDiscTrack,
        );
    }

    #    $productTrack->disc_number($self->DiscNumber());
    #    $productTrack->disc_track($self->DiscTrack());
    $productTrack->save();
}

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

    # Does this track actually _exist_?
    #
    my $trackID = $self->TrackID();
    return unless $trackID;

    # delete the Master
    #
    #    $self->{Master}->delete();

    # Delete the product_track table entry
    #
    #    my $productTrack = RPS::DB::Item::ProductTrack->Lookup
    #    (
    #        product_id => $productID,
    #        track_id => $trackID,
    #    );
    #    if ($productTrack)
    #    {
    #        $productTrack->delete();
    #    }

    # Delete the track product for this track.
    #
    #    my $trackProduct = RPS::DB::Item::Product->GetDigitalTrackProduct($trackID);
    #    if ( $trackProduct)
    #    {
    #        $trackProduct->delete();
    #    }

    # Delete the track
    #
    my $track = RPS::DB::Item::Track->Lookup( track_id => $trackID );
    if ($track) {
        $track->delete();
    }

    return 1;
}

# The container will want to know whether a track has data, so it can choose to ignore it
# when re-ordering the tracks.
#
sub hasData {
    my ($self) = @_;
    return $self->{_hasData};
}

###
1;    # Play nicely.
###