#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Label::StatementLabel;

use strict;
use warnings;
use Carp;
use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::Timer;
use Common::DB::Item::Country;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::LabelRoyaltyLabelItem;
use RPS::Label::Label;
use RPS::DB::Item::Service;

use Common::FormObject;
use base 'Common::FormObject';


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

    $self->SUPER::_init(%args);


    my %properties;
    if ($args{_dbItem})
    {
        $self->_propertiesFromDBItem(\%properties, $args{_dbItem});
    }
    elsif ($args{labelRoyaltyLabelItemID})
    {
        $self->_propertiesFromDB(\%properties, $args{labelRoyaltyLabelItemID});
    }
    else
    {
        $self->_propertiesFromDefaults(\%properties);
    }

    $self->_initProperties(\%properties);
    $self->_initSubs(\%properties);

    return $self;
}


sub _propertiesFromDB
{
    my ($self, $hrProperties, $id) = @_;

    my $dbItem = RPS::DB::Item::LabelRoyaltyLabelItem->Lookup(label_royalty_label_item_id => $id);
    return $self->_propertiesFromDBItem($hrProperties, $dbItem);
}


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;

    $hrProperties->{label_royalty_label_item_id}		= $dbItem->label_royalty_label_item_id;
    $hrProperties->{label_royalty_statement_id}	= $dbItem->label_royalty_statement_id;
    $hrProperties->{label_id}                       = $dbItem->label_id;
    $hrProperties->{label_contract_id}        = $dbItem->label_contract_id;
    $hrProperties->{fee}                            = $dbItem->fee;
    $hrProperties->{distribution_fee}               = $dbItem->distribution_fee;
    $hrProperties->{gross_sales}                    = $dbItem->gross_sales;
    $hrProperties->{net_sales}                      = $dbItem->net_sales;
    $hrProperties->{service_id}                     = $dbItem->service_id;
    $hrProperties->{country_code}                   = $dbItem->country_code;    
}

sub _initProperties
{
    my ($self, $props) = @_;
    my $timer = Common::Timer->new();

    $self->{LabelRoyaltyLabelItemID}		= Common::FormObject::Scalar->new(value => $props->{label_royalty_label_item_id}, readOnly => 1);
    $self->{LabelRoyaltyStatementID}	= Common::FormObject::Scalar->new(value => $props->{label_royalty_statement_id});
    $self->{LabelID}					= Common::FormObject::Scalar->new(value => $props->{label_id});
    $self->{LabelContractID}	= Common::FormObject::Scalar->new(value => $props->{label_contract_id});
    $self->{Fee}			= Common::FormObject::Scalar::Money->new(value => $props->{fee});
    $self->{DistributionFee}			= Common::FormObject::Scalar::Decimal->new(value => $props->{distribution_fee});
    $self->{GrossSales}			= Common::FormObject::Scalar::Money->new(value => $props->{gross_sales});
    $self->{NetSales}			= Common::FormObject::Scalar::Money->new(value => $props->{net_sales});
    $self->{ServiceID}			= Common::FormObject::Scalar->new(value => $props->{service_id});
    $self->{CountryCode}		= Common::FormObject::Scalar->new(value => $props->{country_code});    

    # Going to grab the service, so we can include the service name for sorting purposes.
    #
    my $serviceName = "All";
    if ($props->{service_id})
    {
        my $service = RPS::DB::Item::Service->Lookup(service_id => $props->{service_id});
        $serviceName = $service->service_name;
    }
	$self->{ServiceName} = Common::FormObject::Scalar::String->new(value => $serviceName, readOnly => 1);   
	
    # Let's do the same thing for country.
    #
    my $countryName = "World";
    if ($props->{country_code})
    {
        my $country = Common::DB::Item::Country->Lookup(alpha2 => $props->{country_code});
        $countryName = $country->name;
    }
	$self->{CountryName} = Common::FormObject::Scalar::String->new(value => $countryName, readOnly => 1);  	     
    
}


sub _initSubs
{
    my ($self, $props) = @_;

    # Need to get the album info in here, as well as the list of statement items.
    #

	if($self->loadSubs())
	{
        my $labelID = $props->{label_id};
        $self->{Label} = RPS::Label::Label->new(labelID => $labelID);
	}

    return $self;
}


sub _propertiesFromDefaults
{
    my ($self, $hrProperties) = @_;

}


###
1;#
###