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

use strict;
use warnings;

use lib '/app/tools/common/lib';
use Common::FormObject;
use Common::Assert;

use lib '/app/tools/rps/lib';
use RPS::Statement::Artist::StatementWithPayments;
use RPS::Statement::Artist::BaseStatementList;

use base 'RPS::Statement::Artist::BaseStatementList';

sub _makeStatement
{
    my ($self, $dbItem) = @_;
    assert($dbItem);

    return RPS::Statement::Artist::StatementWithPayments->new(_dbItem => $dbItem);
}

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

    print STDERR "StatementListWithPayments::save \n";
    foreach my $statement ( @{$self->{ArtistStatement}} )
    {
        $statement->save();
    }
}


sub clearPayments
{
    my ($self) = @_;
    foreach my $statement ( @{$self->{ArtistStatement}} )
    {
        $statement->clearPayments();
    }
}


sub setPaymentsToMinPayment
{
    my ($self) = @_;
    foreach my $statement ( @{$self->{ArtistStatement}} )
    {
        $statement->setPaymentsToMin();
    }
}

sub setPaymentsToFullPayment
{
    my ($self) = @_;
    foreach my $statement ( @{$self->{ArtistStatement}} )
    {
        $statement->setPaymentsToFull();
    }
}


1;