Benutzerdefinierte Variablen bei Ansprechpartnern über CSV importierbar machen.

diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm
index 6a66e8ca1dd964a8f2692ebd4db7c3205f6d9f76..eda921f4247ba7c70280d699ff1126ff1419ce31 100644 (file)
--- a/SL/Controller/CsvImport/Base.pm
+++ b/SL/Controller/CsvImport/Base.pm
@@ -9,6 +9,7 @@ use SL::DB::Customer;
 use SL::DB::Language;
 use SL::DB::PaymentTerm;
 use SL::DB::Vendor;
 use SL::DB::Language;
 use SL::DB::PaymentTerm;
 use SL::DB::Vendor;

+use SL::DB::Contact;

 
 use parent qw(Rose::Object);
 
 
 use parent qw(Rose::Object);
 

diff --git a/SL/Controller/CsvImport/Contact.pm b/SL/Controller/CsvImport/Contact.pm
index e5dadbbebe50d308f9bccc7c3632507ffa49ba8f..5d0a1bea7fe2dc13c465291f439341a52626f934 100644 (file)
--- a/SL/Controller/CsvImport/Contact.pm
+++ b/SL/Controller/CsvImport/Contact.pm
@@ -3,6 +3,8 @@ package SL::Controller::CsvImport::Contact;
 use strict;
 
 use SL::Helper::Csv;
 use strict;
 
 use SL::Helper::Csv;

+use SL::DB::CustomVariable;
+use SL::DB::CustomVariableConfig;

 
 use parent qw(SL::Controller::CsvImport::Base);
 
 
 use parent qw(SL::Controller::CsvImport::Base);
 


@@ -16,6 +18,12 @@ sub init_class {
   $self->class('SL::DB::Contact');
 }
 
   $self->class('SL::DB::Contact');
 }
 

+sub init_all_cvar_configs {
+  my ($self) = @_;
+
+  return SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'Contacts' ]);
+}
+

 sub check_objects {
   my ($self) = @_;
 
 sub check_objects {
   my ($self) = @_;
 


@@ -23,9 +31,11 @@ sub check_objects {
     $self->check_name($entry);
     $self->check_vc($entry, 'cp_cv_id');
     $self->check_gender($entry);
     $self->check_name($entry);
     $self->check_vc($entry, 'cp_cv_id');
     $self->check_gender($entry);

+    $self->handle_cvars($entry);

   }
 
   $self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
   }
 
   $self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });

+  $self->add_cvar_raw_data_columns;

 }
 
 sub check_name {
 }
 
 sub check_name {


@@ -87,6 +97,7 @@ sub setup_displayable_columns {
   my ($self) = @_;
 
   $self->SUPER::setup_displayable_columns;
   my ($self) = @_;
 
   $self->SUPER::setup_displayable_columns;

+  $self->add_cvar_columns_to_displayable_columns;

 
   $self->add_displayable_columns({ name => 'cp_abteilung',   description => $::locale->text('Department')                    },
                                  { name => 'cp_birthday',    description => $::locale->text('Birthday')                      },
 
   $self->add_displayable_columns({ name => 'cp_abteilung',   description => $::locale->text('Department')                    },
                                  { name => 'cp_birthday',    description => $::locale->text('Birthday')                      },