#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Reference::CAStatRate;
use strict;
use warnings;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::CAStatRate;

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

    $self->_initProperties(\%properties);
    return $self;
}


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

	my $dbItem = RPS::DB::Item::CAStatRate->Lookup(stat_rate_id => $statRateID);
	$self->_propertiesFromDBItem($hrProperties, $dbItem);
}


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

	$hrProperties->{stat_rate_id}   = $dbItem->stat_rate_id;
	$hrProperties->{rate}           = $dbItem->rate;
	$hrProperties->{minute_rate}    = $dbItem->minute_rate;
	$hrProperties->{date_effective} = $dbItem->date_effective;
}


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

	$self->{StatRateID} =		Common::FormObject::Scalar->new(value => $props->{stat_rate_id});
	$self->{Rate} =				Common::FormObject::Scalar::Decimal->new(value => $props->{rate}, precision => '5.4');
	$self->{MinuteRate} =		Common::FormObject::Scalar::Decimal->new(value => $props->{minute_rate}, precision => '5.4');
	$self->{DateEffective} =	Common::FormObject::Scalar::Date->new(value => $props->{date_effective});

	return $self;
}

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


1;