use strict;


AddUnique->start();



package AddUnique;
use lib '/app/tools/common/lib';
use lib '/app/tools/rps/lib';

use Common::Log;
use Common::Util;
use Common::Client;
use Common::RSApp;


use base 'Common::Script';


sub _process {
    my $self = shift;

    my $clientName = Common::Client::Current()->ClientName();
    print "$clientName\n";


    my $dbo = Common::RSApp::GetClientDB();

    $dbo->DoCmd('ALTER TABLE controlled_composition DROP KEY `artist_contract_id`');
    $dbo->DoCmd('ALTER TABLE controlled_composition ADD UNIQUE KEY `artist_contract_id` (`artist_contract_id`)');
}

sub _getProductionClientIDs {
	return Common::RSDB::GetAllRPSClientIDs();
}
1;