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

use strict;
use warnings;
use Carp;

use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::Assert;

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{mechanicalStatementPublisherID})
    {
        $self->_propertiesFromDB(\%properties, $args{mechanicalStatementPublisherID});
    }
    else
    {
        $self->_propertiesFromDefaults(\%properties);
    }

    
    # !!! This is not ideal, really, but I don't see a better way.
    #
    my $showTracks = $args{showTracks};

    $self->_initProperties(\%properties, $showTracks);

    return $self;
}



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

    assert(0, 'override this');
}


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;
    assert(0, 'override this');
}


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

    # Assume USD for now
    #
    my $currencyCode = $self->_getCurrencyCode();

    $self->{MechanicalStatementPublisherID} = Common::FormObject::Scalar->new(value => $props->{mechanical_statement_publisher_id}, readOnly => 1);
    $self->{MechanicalStatementID}          = Common::FormObject::Scalar->new(value => $props->{mechanical_statement_id}, readOnly => 1);
    $self->{PublisherID}                    = Common::FormObject::Scalar->new(value => $props->{publisher_id}, readOnly => 1);
    $self->{PublisherSubtotal}              = Common::FormObject::Scalar::Money->new(value => $props->{subtotal}, currencyCode => $currencyCode);
    $self->{Publisher}                      = $self->_publisher()->new(publisherID => $props->{publisher_id});
    
    $self->{TransactionSubtotal}            = Common::FormObject::Scalar::Money->new(value => $props->{transaction_subtotal});
    $self->{PreviousBalance}                = Common::FormObject::Scalar::Money->new(value => $props->{previous_balance});
    $self->{StatementTotal}                 = Common::FormObject::Scalar::Money->new(value => $props->{statement_total});
    $self->{AmountDue}                      = Common::FormObject::Scalar::Money->new(value => $props->{amount_due});
    $self->{OnHold}                         = Common::FormObject::Scalar->new(value => $props->{on_hold});


    $self->{MechanicalStatementPublisherTransactionList} = $self->_getStatementPublisherTransactionList($props->{mechanical_statement_id}, $props->{publisher_id});


    if ($showTracks)
    {
        $self->{MechanicalStatementTrackList} = $self->_getStatementTrackList($props->{mechanical_statement_id}, $props->{publisher_id});
    }
}

sub _getCurrencyCode
{
    my ($self) = @_;
    assert(0, 'override this');
}

sub _getStatementTrackList
{
    my ($self, $statementID, $publisherID) = @_;
    assert(0, 'override this');
}

sub _getStatementPublisherTransactionList
{
    my ($self, $statementID, $publisherID) = @_;
    assert(0, 'override this');
}

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

    return $self->{MechanicalStatementTrackList}->getList();
}


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

###
1;#
###