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


use lib '/app/tools/rps/lib';
use RPS::Report::PublisherMailing;
use RPS::Report::Command::BaseReport;
use RPS::DB::Item::MechanicalRun;
use RPS::Mechanical::US::MechanicalRun;

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

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

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

    my $runID = $self->getParam('run_id');
    my $filterBy = $self->getParam('filter_by');
    return RPS::Report::PublisherMailing->new(page => $page, runID => $runID, filterBy => $filterBy);
}


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

    my $run = RPS::DB::Item::MechanicalRun->Lookup(mechanical_run_id => $runID);
    my $cleanRunLabel = RPS::Mechanical::US::MechanicalRun::GenerateFileLabel($run->label);
        
    return "Mailing_$cleanRunLabel";
}


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

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


1;