#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Report::ArtistPayeeMailing;
use strict;
use warnings;

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

use lib '/app/tools/rps/lib';
use RPS::Payee::ArtistPayee;
use RPS::DB::Item::ArtistPayee;
use RPS::DB::Item::ArtistRoyaltyStatement;
use RPS::CountryList;

use base 'RPS::Report';

sub _baseXMLName { 'ArtistPayee' }

sub _init() {
    my $self = shift;

    $self->{CountryList} = RPS::CountryList->new();

    return $self->SUPER::_init(@_);
}

sub _getDBItem() {
    my $self = shift;
    my %args = @_;
    my $runID = $args{runID};
    my $filterBy = $args{filterBy};

    return RPS::DB::Item::ArtistRoyaltyStatement->Get
    (
        runID => $runID,
        sortByArtistPayeeName => 1,
        filterBy => $filterBy,
    );    
    
}

sub _reportColumns {
    my $self = shift;

    return ( "Name"             => "Payee",
             "StreetAddressClean"    => "Address 1",
             "StreetAddress2Clean"   => "Address 2",
             "StreetAddress3Clean"   => "Address 3",
             "City"             => "City",
             "StateProvince"    => "State",
             "PostalCode"       => "Zip",
             "Country"          => "Country",
             "ClientAccountID"  => "Client Account ID" );
}

sub _fillInHash
{
    my ($self, $dbitem) = @_;
    
    my $apDBItem = RPS::DB::Item::ArtistPayee->Lookup(artist_payee_id => $dbitem->payee_id);
    
    my $ap = RPS::Payee::ArtistPayee->new( _dbItem => $apDBItem );       
    
    my $payeeAddress = $ap->StreetAddress;
    $payeeAddress =~ s/[\r\n]+/ /g;
    $ap->{StreetAddressClean} = $payeeAddress;    

    my $payeeAddress2 = $ap->StreetAddress2;
    $payeeAddress2 =~ s/[\r\n]+/ /g;
    $ap->{StreetAddress2Clean} = $payeeAddress2;
    
    my $payeeAddress3 = $ap->StreetAddress3;
    $payeeAddress3 =~ s/[\r\n]+/ /g;
    $ap->{StreetAddress3Clean} = $payeeAddress3;      

    $ap->{Country} = RPS::CountryList::CountryNameFor( $ap->CountryCode );

    return $ap;
}

###
1;#
###