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