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

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

use lib '/app/tools/rps/lib';
use RPS::Payee::ArtistPayeeAccount;
use RPS::Payee::ArtistPayee;
use RPS::Payor::Payor;

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

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

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

    my $payeeID = $args{artistPayeeID};
    my $payorID = $args{payorID};

    unless ( $payeeID && $payorID ) {
        assert( 0, 'payee and payor are required' );
    }

    $self->{Account} = RPS::Payee::ArtistPayeeAccount->new( artistPayeeID => $payeeID, payorID => $payorID );

    $self->{ArtistPayee} = RPS::Payee::ArtistPayee->new(
        artistPayeeID => $payeeID,
        loadSubs      => 0,
        readOnly      => 1,
    );

    $self->{Payor} = RPS::Payor::Payor->new(
        payorID  => $payorID,
        loadSubs => 0,
        readOnly => 1,
    );

    return $self;
}

sub save {
    my ($self) = @_;
    $self->{Account}->save();
}

sub payeeID {
    my ($self) = @_;
    return $self->{ArtistPayee}->ArtistPayeeID();
}

###
1;    #
###