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

use Carp;

use Data::Dumper;
use Date::Calc;

use lib '/app/tools/common/lib';
use Common::Client;
use Common::Assert;
#use Common::DiskCache;

use lib '/app/tools/rps/lib';
use RPS::Statement::UKMechanical::McpsStatementItemList;

use RPS::Statement::UKMechanical::BaseStatement;
use base 'RPS::Statement::UKMechanical::BaseStatement';


sub _init
{
    my ($self, %args) = @_;
    my $timer = Common::Timer->new();

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


#    $self->_postProcess();

    return $self;
}



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

    $self->SUPER::_initProperties($props);


    # !!! I presume the statement items will be listed here?
    #
    $self->{McpsStatementItemList} = RPS::Statement::UKMechanical::McpsStatementItemList->new(mcpsStatementID => $props->{mcps_statement_id});
}


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


###
1;#
###