#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::Service::DistributionService;

use strict;
use warnings;
use Carp;

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

use lib '/app/tools/support/lib';
use Support::DB::Item::ModuleAccess;
use Support::ServiceAccount::ServiceAccountList;
use Support::Permission;

use Support::Service::DistributionServiceSimple;
use base 'Support::Service::DistributionServiceSimple';

sub _initProperties {
    my $self = shift;

    $self->SUPER::_initProperties(@_);

    return $self;
}

sub loadServiceAccount {
    my $self = shift;

    my %args      = @_;
    my $clientID  = $args{clientID};
    my $serviceID = $args{serviceID};

    Common::Log::Debug("Service ID: $serviceID");

    $self->{ServiceAccounts} = new Support::ServiceAccount::ServiceAccountList( clientID => $clientID, serviceID => $serviceID );
}

1;