#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Product::ProductWithDigital;

use strict;
use warnings;
use Carp;

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

use lib '/app/tools/rps/lib';
use RPS::Product::Product;
use RPS::Product::ProductDigital;


use Common::FormObject;
use base 'RPS::Product::Product';


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

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


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

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

    my $digital = new RPS::Product::ProductDigital( productID => $self->ProductID );

	$self->{ProductDigital} = $digital if( $digital );

    return $self;
}


1;