CSV-Import: Groß-/Kleinschreibung bei Spaltennamen ignorieren

diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm
index e2032ea277546a05c5fb854b939a3a2b5771fc54..a30122e04ca835c61df86ae3571733d233f8c6fb 100644 (file)
--- a/SL/Helper/Csv.pm
+++ b/SL/Helper/Csv.pm
@@ -109,7 +109,7 @@ sub _check_header {
     0,
   ]) unless $header;
 
     0,
   ]) unless $header;
 

-  $self->header($header);
+  $self->header([ map { lc } @{ $header } ]);

 }
 
 sub _parse_data {
 }
 
 sub _parse_data {