CSV-Import Ansprechpersonen: Aktualisieren von Existierenden via Spalte "cp_id"

[mfinanz.git] / SL / Controller / CsvImport / Base.pm

diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm
index eb46b26d54f7c29933d6c402652388a3e8931e26..7f4326a07141f644e0821f6aba5d72aae1f29036 100644 (file)
--- a/SL/Controller/CsvImport/Base.pm
+++ b/SL/Controller/CsvImport/Base.pm
@@ -153,6 +153,10 @@ sub init_all_vc {
            vendors   => SL::DB::Manager::Vendor->get_all };
 }
 
            vendors   => SL::DB::Manager::Vendor->get_all };
 }
 

+sub force_allow_columns {
+  return ();
+}
+

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


@@ -222,6 +226,8 @@ sub init_profile {
   eval "require " . $self->class;
 
   my %unwanted = map { ( $_ => 1 ) } (qw(itime mtime), map { $_->name } @{ $self->class->meta->primary_key_columns });
   eval "require " . $self->class;
 
   my %unwanted = map { ( $_ => 1 ) } (qw(itime mtime), map { $_->name } @{ $self->class->meta->primary_key_columns });

+  delete $unwanted{$_} for ($self->force_allow_columns);
+

   my %profile;
   for my $col ($self->class->meta->columns) {
     next if $unwanted{$col};
   my %profile;
   for my $col ($self->class->meta->columns) {
     next if $unwanted{$col};


@@ -428,7 +434,6 @@ sub clean_fields {
   my @cleaned_fields;
   foreach my $field (grep { $object->can($_) } @fields) {
     my $value = $object->$field;
   my @cleaned_fields;
   foreach my $field (grep { $object->can($_) } @fields) {
     my $value = $object->$field;

-    $::lxdebug->message(0, "field $field value $value ill $illegal_chars");

 
     next unless defined($value) && ($value =~ s/$illegal_chars/ /g);
 
 
     next unless defined($value) && ($value =~ s/$illegal_chars/ /g);