#------------------------------------------------------------
# Copyright (C) 2009 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::RoyaltyRun::RoyaltyRunStatusList;

use strict;
use warnings;
use Carp;

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

use lib '/app/tools/rps/lib';
use RPS::RoyaltyRun::RoyaltyRunStatus::Artist;
use RPS::RoyaltyRun::RoyaltyRunStatus::Label;
use RPS::RoyaltyRun::RoyaltyRunStatus::CAMechanical;
use RPS::RoyaltyRun::RoyaltyRunStatus::UKMechanical;
use RPS::RoyaltyRun::RoyaltyRunStatus::USMechanical;

# use FormObject to get validation code
use base 'Common::FormObject';

# Container for all RoyaltyRun Status Reports

sub _init {
    my $self = shift;
    my %args = @_;

    my %restrictToLists;

    # Only display lists specified, if none specified then list all.
    $restrictToLists{artist}       = $args{artist}       if ( $args{artist} );
    $restrictToLists{label}        = $args{label}        if ( $args{label} );
    $restrictToLists{caMechanical} = $args{caMechanical} if ( $args{caMechanical} );
    $restrictToLists{ukMechanical} = $args{ukMechanical} if ( $args{ukMechanical} );
    $restrictToLists{usMechanical} = $args{usMechanical} if ( $args{usMechanical} );

    $self->{ArtistRuns} = RPS::RoyaltyRun::RoyaltyRunStatus::Artist->new(%args)
      if ( !%restrictToLists || $restrictToLists{artist} );
    $self->{LabelRuns} = RPS::RoyaltyRun::RoyaltyRunStatus::Label->new(%args)
      if ( !%restrictToLists || $restrictToLists{label} );
    $self->{CAMechanicalRuns} = RPS::RoyaltyRun::RoyaltyRunStatus::CAMechanical->new(%args)
      if ( !%restrictToLists || $restrictToLists{caMechanical} );
    $self->{UKMechanicalRuns} = RPS::RoyaltyRun::RoyaltyRunStatus::UKMechanical->new(%args)
      if ( !%restrictToLists || $restrictToLists{ukMechanical} );
    $self->{USMechanicalRuns} = RPS::RoyaltyRun::RoyaltyRunStatus::USMechanical->new(%args)
      if ( !%restrictToLists || $restrictToLists{usMechanical} );

    $self->{CanEdit}         = $self->canEdit();
    $self->{InvalidatedRuns} = $self->invalidRuns();
    return $self;
}

sub canEdit {
    my $self = shift;

    for my $runType (qw( ArtistRuns LabelRuns CAMechanicalRuns UKMechanicalRuns USMechanicalRuns )) {
        if ( $self->{$runType} ) {
            return 0 unless ( $self->{$runType}->canEdit() );
        }
    }

    return 1;
}

sub invalidRuns {
    my $self  = shift;
    my $count = 0;

    for my $runType (qw( ArtistRuns LabelRuns CAMechanicalRuns UKMechanicalRuns USMechanicalRuns )) {
        $count += $self->{$runType}->Invalidated()
          if ( $self->{$runType} );
    }

    return $count;
}

1;