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

use strict;
use warnings;
use Carp;
use Data::Dumper;

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

use lib '/app/tools/rps/lib';
use RPS::ArtistRoyalty::ArtistRoyaltyRun;
use RPS::DB::Item::ArtistRoyaltyStatement;
use RPS::DB::Item::Payor;

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

sub _init {
    my ( $self, %args ) = @_;
    my $timer = Common::Timer->new();

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

    my $runID = $args{royaltyRunID};

    my @payors = RPS::DB::Item::ArtistRoyaltyStatement->GetDistinctPayorsByRunID($runID);

    $self->{Payor} = [];

    foreach my $payorID (@payors) {
        my $payor = RPS::DB::Item::Payor->Lookup( payor_id => $payorID );
        my $numStatements = RPS::DB::Item::ArtistRoyaltyStatement->GetCountByArtistRoyaltyRunID( $runID, $payorID );
        push @{ $self->{Payor} },
          {
            PayorID       => $payorID,
            Name          => $payor->name(),
            NumStatements => $numStatements,
          };
    }

    return $self;
}

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

    return { Payor => 1 };
}

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

    return 0 unless defined $self->{Payor};
    return ( scalar @{ $self->{Payor} } );
}

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

    return $self->{Payor};
}

1;