#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Catalog::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::Catalog::AlbumContractAdvance;
use RPS::LabelList;

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

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

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

    my ( $albumContractID, $albumContractAdvanceID );
    $albumContractID        = $args{albumContractID};
    $albumContractAdvanceID = $args{albumContractAdvanceID};

    # one or the other
    #
    # Here's the funny thing: We don't really want to _edit_ the AlbumContractAdvance object directly.
    # So, there's no good reason to make it editable.
    #
    if ($albumContractID) {
        $self->{AlbumContractAdvance} = RPS::Catalog::AlbumContractAdvance->new( albumContractID => $albumContractID, readOnly => 1 );
    } elsif ($albumContractAdvanceID) {
        $self->{AlbumContractAdvance} =
          RPS::Catalog::AlbumContractAdvance->new( albumContractAdvanceID => $albumContractAdvanceID, readOnly => 1 );
    } else {

        # woops!
        assert(0);
    }

    # jpk - AlbumContractAdvance will not contain AlbumContract anymore.
    # Instead, I'll just instantiate one of those as a peer, here in the form.
    #
    $self->{AlbumContract} = RPS::Catalog::AlbumContract->new(
        albumContractID => $self->{AlbumContractAdvance}->AlbumContractID(),
        loadSubs        => 0,
        readOnly        => 1,
    );

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

    $self->{Album} = RPS::Catalog::AlbumSimple->new(
        albumID  => $self->{AlbumContract}->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 => "" );
    $self->{LabelList} = RPS::LabelList->new();

    return $self;
}

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

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

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

###
1;    #
###