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;