1 package SL::Controller::CsvImport::Shipto;
7 use parent qw(SL::Controller::CsvImport::Base);
9 use Rose::Object::MakeMethods::Generic
11 scalar => [ qw(table) ],
16 $self->class('SL::DB::Shipto');
22 foreach my $entry (@{ $self->controller->data }) {
23 $self->check_vc($entry, 'trans_id');
24 $entry->{object}->module('CT');
27 $self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
30 sub check_duplicates {
31 my ($self, %params) = @_;
33 my $normalizer = sub { my $name = $_[0]; $name =~ s/[\s,\.\-]//g; return $name; };
34 my $name_maker = sub { return $normalizer->($_[0]->shiptoname) . '--' . $normalizer->($_[0]->shiptostreet) };
37 if ('check_db' eq $self->controller->profile->get('duplicates')) {
38 foreach my $type (qw(customers vendors)) {
39 foreach my $vc (@{ $self->all_vc->{$type} }) {
40 $by_id_and_name{ $vc->id } = { map { ( $name_maker->($_) => 'db' ) } @{ $vc->shipto } };
45 foreach my $entry (@{ $self->controller->data }) {
46 next if @{ $entry->{errors} };
48 my $name = $name_maker->($entry->{object});
50 $by_id_and_name{ $entry->{vc}->id } ||= { };
51 if (!$by_id_and_name{ $entry->{vc}->id }->{ $name }) {
52 $by_id_and_name{ $entry->{vc}->id }->{ $name } = 'csv';
55 push @{ $entry->{errors} }, $by_id_and_name{ $entry->{vc}->id }->{ $name } eq 'db' ? $::locale->text('Duplicate in database') : $::locale->text('Duplicate in CSV file');
61 return ( shiptoname => 75,
62 shiptodepartment_1 => 75,
63 shiptodepartment_2 => 75,
77 my $profile = $self->SUPER::init_profile;
78 delete @{$profile}{qw(module)};
83 sub setup_displayable_columns {
86 $self->SUPER::setup_displayable_columns;
88 $self->add_displayable_columns({ name => 'shiptocity', description => $::locale->text('City') },
89 { name => 'shiptocontact', description => $::locale->text('Contact') },
90 { name => 'shiptocountry', description => $::locale->text('Country') },
91 { name => 'shiptodepartment_1', description => $::locale->text('Department 1') },
92 { name => 'shiptodepartment_2', description => $::locale->text('Department 2') },
93 { name => 'shiptoemail', description => $::locale->text('E-mail') },
94 { name => 'shiptofax', description => $::locale->text('Fax') },
95 { name => 'shiptoname', description => $::locale->text('Name') },
96 { name => 'shiptophone', description => $::locale->text('Phone') },
97 { name => 'shiptostreet', description => $::locale->text('Street') },
98 { name => 'shiptozipcode', description => $::locale->text('Zipcode') },
99 { name => 'trans_id', description => $::locale->text('Customer/Vendor (database ID)') },
100 { name => 'customer', description => $::locale->text('Customer (name)') },
101 { name => 'customernumber', description => $::locale->text('Customer Number') },
102 { name => 'vendor', description => $::locale->text('Vendor (name)') },
103 { name => 'vendornumber', description => $::locale->text('Vendor Number') },