Gewisse Spalten nicht ins Profil aufnehmen

diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm
index e865a86..e854291 100644 (file)
--- a/SL/Controller/CsvImport/Base.pm
+++ b/SL/Controller/CsvImport/Base.pm
@@ -51,8 +51,11 @@ sub init_profile {
 
   eval "require " . $self->class;
 
+  my %unwanted = map { ( $_ => 1 ) } (qw(itime mtime), map { $_->name } @{ $self->class->meta->primary_key_columns });
   my %profile;
   for my $col ($self->class->meta->columns) {
+    next if $unwanted{$col};
+
     my $name = $col->isa('Rose::DB::Object::Metadata::Column::Numeric')   ? "$col\_as_number"
       :        $col->isa('Rose::DB::Object::Metadata::Column::Date')      ? "$col\_as_date"
       :        $col->isa('Rose::DB::Object::Metadata::Column::Timestamp') ? "$col\_as_date"

diff --git a/menu.ini b/menu.ini
index 8dcdf01..9145cc8 100644 (file)
--- a/menu.ini
+++ b/menu.ini
@@ -794,10 +794,10 @@ module=controller.pl
 action=CsvImport/new
 profile.type=addresses
 
-# [System--Import CSV2--Parts]
-# module=controller.pl
-# action=CsvImport/new
-# profile.type=parts
+[System--Import CSV2--Parts]
+module=controller.pl
+action=CsvImport/new
+profile.type=parts
 
 
 [System--Templates]