#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package Support::DB::Item::ClientServiceAccount;
use strict;
use warnings;

use lib '/app/tools/rps/lib';

use lib '/app/tools/common/lib';
use Common::Assert;
use Common::DB::Item::ClientType;

use base 'Common::DB::Item';

use constant kTable => 'client_service_account_map';
use constant kDB    => Common::DB::Item::kCommonDB();

sub ClearServiceAccounts {
    my $class = shift;
    my $dbo   = Common::RSApp::GetCommonDB();

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

    assert( $clientID && $serviceID );

    my $sql =
        "DELETE "
      . kTable . ".* " . "FROM "
      . kTable
      . " INNER JOIN service_account USING (service_account_id) "
      . "WHERE service_id = "
      . $dbo->DBQuote($serviceID)
      . " AND client_id = "
      . $dbo->DBQuote($clientID);

    $dbo->DoCmd($sql);
}

1;