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

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ConsolidatedArtistRoyaltyRunMissedSaleLog;

use base 'RPS::Report';

sub _baseXMLName { 'MissedSale' }

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

    return RPS::DB::Item::ConsolidatedArtistRoyaltyRunMissedSaleLog->GetByRunID($runID);
}

sub _reportColumns {
    my $self = shift;

    return (
             "CatalogNumber"         => "Catalog #",
             "ProductType"           => "Product Type",
             "AlbumTitle"            => "Album Title",
             "ArtistName"            => "Artist",
             "TrackTitle"            => "Track Title",
             "ArtistContractTitle"   => "Contract Title",
             "Units"                 => "Units",
             "Reason"                => "Reason",
             "Details"               => "Details",
    );
}

sub _fillInHash
{
    my ($self, $logLine) = @_;

    my %data;


    $data{ArtistName}       = $logLine->artist_name;
    $data{CatalogNumber}    = $logLine->catalog_number;
    $data{AlbumTitle}       = $logLine->album_title;
    $data{ArtistContractID} = $logLine->artist_contract_id;
    $data{ArtistContractTitle} = $logLine->artist_contract_title;
    $data{TrackTitle}       = $logLine->track_title;
    $data{AlbumID}          = $logLine->album_id;
    $data{TrackID}          = $logLine->track_id;
    $data{ArtistName}       = $logLine->artist_name;
    $data{ProductType}      = $logLine->product_type;
    $data{Units}            = Common::Client::Current()->Locale()->formatNumber($logLine->units);
    $data{TotalRevenue}     = Common::Client::Current()->Locale()->formatMoney($logLine->total_revenue);
    $data{Reason}           = $logLine->reason;
    $data{Details}          = $logLine->details;

    return \%data;
}


###
1;#
###