#!/usr/bin/perl

$ENV{DBIC_TRACE}=1;
use JSON;
use strict;
use Data::Show;
use lib '/home/sites/clm.dmadelivers.com/www/clmapp/lib';
use CLMApp::Schema;
use DateTime;
use Text::CSV;
use POSIX;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
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 @customers = $dbix->resultset('Customer')->search({'me.chaingroupid' => 39, 'customersystem.systemid' => 9, 'customersystem.systemtype' => 1},{
		prefetch => [qw/customersystem/],
		result_class => 'DBIx::Class::ResultClass::HashRefInflator'
	});

	# show scalar(@customers);
	my $cnt = 0;
	foreach my $cs (@customers){

	#	show $cs;
	
		
		my @customer = $dbix->resultset('Customer')->search({'me.customerid' => $cs->{customerid}, 'me.invoicesystem' => 9, 'me.chaingroupid' => 39, 'customersystem.systemid' => 9, 'customersystem.systemtype' => 1},{
			prefetch => [qw/customersystem/],
			result_class => 'DBIx::Class::ResultClass::HashRefInflator'
		});
		
		$dbix->resultset('CustomerSystem')->search({'me.customerid' => $cs->{customerid}, 'systems_customer.invoicesystem' => 9, 'systems_customer.chaingroupid' => 39, 'me.systemid' => 9, 'me.systemtype' => 1},{prefetch => [qw/systems_customer/]})->delete;

		my $update = { invoicesystem => 0 };
		$dbix->resultset('Customer')->search({'me.customerid' => $cs->{customerid} },{prefetch => [qw/customersystem/]})->update($update);




		$cnt++;


	}

	show $cnt . " records updated";



}


1;