#!/usr/bin/perl

# $ENV{DBIC_TRACE}=1;
use strict;
use Data::Show;
use lib '/home/sites/clm.dmadelivers.com/www/clmapp/lib';
use CLMApp::Schema;
my $dbix = CLMApp::Schema->connect("dbi:mysql:host=rds1.dmadelivers.com;db=dmaclm", 'dmaclm', '3lUz1OV2!',{unsafe=>1,RaiseError=>0,PrintError=>1});


&default;



sub default{

	my $systemid = 41;


	my @cs = $dbix->resultset('Customer')->search({ 
#		statusid => 1,
#		distributorcompanyid => 32,
		chaingroupid => 179,
		chainconceptid => 445,
	},{
		# length => 10, 
		# page => 1,
		result_class=>'DBIx::Class::ResultClass::HashRefInflator',
	});

	show scalar(@cs);

	foreach my $cu (@cs){
		my $rsearch = { customerid => $cu->{customerid}, systemid => $systemid };
		if(!$dbix->resultset('BackOfficeSystemCustomer')->search($rsearch)->count){
			$dbix->resultset('BackOfficeSystemCustomer')->create($rsearch);	
		}
	}
}

1;