#!/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 Mojo::JSON qw(decode_json encode_json);
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 @c = $dbix->resultset('User')->search({ settings => {'!=' => undef} }, {
		result_class=>'DBIx::Class::ResultClass::HashRefInflator'
	});

	foreach my $r (@c){

		my $j = decode_json( $r->{settings} );
		show $j;
		# next;
		if($j->{datatables}->{views}->{customertable}){
				foreach my $k (keys %{ $j->{datatables}->{views}->{customertable} }){

					my $v = $j->{datatables}->{views}->{customertable}->{$k};

					push(@{$v->{colsView}},
                              {
                                attrs   => "data-width=\"1%\" data-index=\"13\" data-field=\"brandedprocurement\"",
                                field   => "brandedprocurement",
                                title   => "Branded Procurement",
                                visible => 0,
                              }
               		);

					push(@{$v->{columns}},
						{ data => "brandedprocurement", title => "BP" },
               		);
					

					push(@{$v->{columnDefs}},
							{ searchable => 1, targets => 13, visible => 0, width => "1%",  },
               		);
					
				}


				my $jtext = encode_json($j);
				$dbix->resultset('User')->search({ user_id => $r->{user_id} })->update({
					settings => $jtext
				});

		}
		
	}


}

1;