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

use lib '/app/tools/rps/lib';
use RPS::Report::CAMissingLicenseAccrual;
use RPS::Report::Command::BaseReport;
use RPS::DB::Item::CAMechanicalRun;
use RPS::Mechanical::CA::MechanicalRun;

use base 'RPS::Report::Command::BaseReport';

sub cmd  { return 'ca_license_accrual'; }
sub area { return 'report'; }

sub _getReport {
    my ( $self, $page ) = @_;

    my $runID   = $self->getParam('run_id');
    my $labelID = $self->getParam('label_id');
    return RPS::Report::CAMissingLicenseAccrual->new( page => $page, runID => $runID, labelID => $labelID );
}

sub _getFilenamePrefix {
    my ($self) = @_;
    my $runID = $self->getParam('run_id');

    my $run = RPS::DB::Item::CAMechanicalRun->Lookup( ca_mechanical_run_id => $runID );
    my $cleanRunLabel = RPS::Mechanical::CA::MechanicalRun::GenerateFileLabel($run);

    return "Unlicensed_Accrual_$cleanRunLabel";
}

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

    return $self->_getFilenamePrefix() . '.txt';
}

1;