#------------------------------------------------------------
# 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;    #
###