#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Mechanical::CA::Command::List;
use strict;
use warnings;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::CAMechanicalRun;
use RPS::Mechanical::CA::MechanicalRun;
use RPS::Mechanical::CA::MechanicalRunList;
use RPS::Pagination;
use RPS::Payor::PayorList;
use RPS::RoyaltyRun::RoyaltyRunStatusList;
use RPS::Mechanical::Command::List;
use base 'RPS::Mechanical::Command::List';

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;
use Common::FormObject;

sub cmd  { return 'list'; }
sub area { return 'ca_mechanical'; }

sub _template { return "/app/tools/rps/templates/ca_mechanical/list.xsl" }

sub _getRunList {
    my ($self) = @_;
    return RPS::Mechanical::CA::MechanicalRunList->new();
}

sub _getRoyaltyRunStatusList {
    return RPS::RoyaltyRun::RoyaltyRunStatusList->new( caMechanical => 1 );
}

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

    my $payorIDs = RPS::DB::Item::CAMechanicalRun->GetPayorIDs();

    if ( scalar @$payorIDs ) {
        return RPS::Payor::PayorList->new( ids => $payorIDs );
    }

    return;
}

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

    my $page     = $args{page};
    my $pageSize = $args{pageSize};
    my $payor    = $args{payor};
    my $status   = $args{status};

    my $collection = RPS::DB::Item::CAMechanicalRun->GetAllFiltered( payor => $payor, status => $status );

    $collection->setPagination( pageIndex => $page, pageSize => $pageSize );

    my $pagination = RPS::Pagination->new(
        total     => $collection->totalSize(),
        recordNum => $collection->{_record},
        pageSize  => $pageSize
    );

    my $runList = $self->_getRun($collection);

    return ( $runList, $pagination );
}

sub _getRun {
    my ( $self, $collection ) = @_;

    my $list->{MechanicalRun} = [];

    if ($collection) {
        while ( $collection->hasNext() ) {
            my $obj = $collection->next();
            push @{ $list->{MechanicalRun} }, RPS::Mechanical::CA::MechanicalRun->new( _dbItem => $obj, loadSubs => 0 );
        }
    }

    return $list;
}

1;