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

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

use lib '/app/tools/rps/lib';
use RPS::Track::TrackContractAdvance;

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

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

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

	my ($trackContractID, $trackContractAdvanceID);
	$trackContractID = $args{trackContractID};
	$trackContractAdvanceID = $args{trackContractAdvanceID};

	# one or the other
	#
	if($trackContractID)
	{
		$self->{TrackContractAdvance} = RPS::Track::TrackContractAdvance->new(trackContractID => $trackContractID, readOnly => 1);
	}
	elsif($trackContractAdvanceID)
	{
		$self->{TrackContractAdvance} = RPS::Track::TrackContractAdvance->new(trackContractAdvanceID => $trackContractAdvanceID, readOnly=> 1);
	}
	else
	{
		# woops!
        assert(0);
	}


    $self->{TrackContract} = RPS::Track::TrackContract->new
    (
        trackContractID => $self->{TrackContractAdvance}->TrackContractID(),
        loadSubs => 0,
        readOnly => 1,
    );

	$self->{_contractID} = $self->{TrackContract}->ContractID();

    $self->{Track} = RPS::Track::TrackSimple->new(trackID => $self->{TrackContract}->TrackID(), readOnly => 1);

    $self->{Album} = RPS::Catalog::AlbumSimple->new(albumID => $self->{Track}->AlbumID(), loadSubs => 0, readOnly => 1);


    # Put some placeholders in here for editing purposes
    #
    $self->{Advance} = Common::FormObject::Scalar::Decimal->new(value => 0);
    $self->{Memo} = Common::FormObject::Scalar::String->new(value => "");

	return $self;
}



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

	$self->{TrackContractAdvance}->addAdvance($self->Advance(), $self->Memo());
}


sub contractID
{
	my ($self) = @_;
	return $self->{_contractID};
}

###
1;#
###