From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 7 Nov 2012 16:04:35 +0000 (+0100)
Subject: CsvImport: CVars case insensitive parsen lassen
X-Git-Tag: release-3.0.0beta1~14^2~7
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=f01bf6359050e913b1907f1d9c5d197e7c8c2835;p=kivitendo-erp.git

CsvImport: CVars case insensitive parsen lassen
---

diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm
index f84d54b0e..656495e37 100644
--- a/SL/Controller/CsvImport/Base.pm
+++ b/SL/Controller/CsvImport/Base.pm
@@ -29,6 +29,7 @@ sub run {
                                   profile                => $profile,
                                   ignore_unknown_columns => 1,
                                   strict_profile         => 1,
+                                  case_insensitive_header => 1,
                                   map { ( $_ => $self->controller->profile->get($_) ) } qw(sep_char escape_char quote_char),
                                  ));
 
@@ -212,6 +213,12 @@ sub init_profile {
     $profile{$col} = $name;
   }
 
+  if ($self->can('all_cvar_configs')) {
+    for (@{ $self->all_cvar_configs }) {
+      $profile{ 'cvar_' . $_->name } = '';
+    }
+  }
+
   $self->profile(\%profile);
 }