#------------------------------------------------------------
# Copyright (C) 2007 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Report::UKMechUnitSummary;
use strict;
use warnings;
use Data::Dumper;

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::ReportQueries;
use RPS::DB::Item::ReportQueries::UKMechUnitSummary;

use base 'RPS::Report';

sub _baseXMLName { 'Product' }

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

    return RPS::DB::Item::ReportQueries::UKMechUnitSummary->GetUnitSummary($runID, $download);
}

sub _reportColumns {
    my $self = shift;

    return (
             "CatalogNumber"         => "Catalog #",
             "AlbumTitle"            => "Album Title",
             "ArtistName"            => "Artist",
             "ProductType"           => "Product",
             "ProductCode"           => "ProductID",
             "CountryCode"           => "Country",
             "Units"                 => "Units",
    );
}

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

    my %data;

    $data{CatalogNumber}    = $product->catalog_number;
    $data{AlbumTitle}       = $product->album_title;
    $data{AlbumID}          = $product->album_id;
    $data{ArtistName}       = $product->artist_name;
    $data{ProductType}      = $product->product_type;
    $data{ProductCode}      = $product->product_code;
    $data{CountryCode}      = $product->country_code;
    $data{Units}            = Common::Client::Current()->Locale()->formatNumber($product->final_net_units);


    return \%data;
}


###
1;#
###