use strict;

FillInProductTitleClean->start();

package FillInProductTitleClean;
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 RPS::DB::Item::Product;

use Common::Util qw(clean_name_catalog);

use base 'Common::Script';

sub _process {
    my $self = shift;

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

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

    # Loop over all the products.
    my $products = RPS::DB::Item::Product->GetAll();

    my $updatedCount = 0;

    while ( my $product = $products->next() ) {

        # Digital track products don't have titles, so skip them.
        if ( $product->product_type_id == RPS::DB::Item::Product::kProductTypeDigitalTrack ) {
            next();
        }

        # In theory, it should be safe to do this for all products.
        # But, we're only going to set the title clean if it's NULL.
        if ( $product->title && !$product->title_clean ) {
            $product->title_clean( clean_name_catalog( $product->title ) );
            $product->save();
            $updatedCount++;
        }
    }

    print STDERR "Updated $updatedCount products\n";

}

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

sub _getLocalClientIDs {
    return 202;    # RS Test
}

1;