S:DATEV:CSV: Kein Auffüllen des Arrays mehr

Durch die Änderungen zum Festschreibungskennzeichen
("DATEV-Export Festschreibungskennzeichen für jede Buchung einzel setzen"
commit e4edba0587fc8224bd69047fe57dbf435b776aa6) wurde das Array ohnehin auf
120 Einträge erweitert, so dass die Funktion zum Auffüllen auf 116 Einträge
weg kann.

Zudem wird dadurch eine Warnung vermieden ("Negative repeat count does nothing").

Refs #416 (redmine).

diff --git a/SL/DATEV/CSV.pm b/SL/DATEV/CSV.pm
index 38c7ad8..05cc309 100644 (file)
--- a/SL/DATEV/CSV.pm
+++ b/SL/DATEV/CSV.pm
@@ -520,10 +520,6 @@ sub check_encoding {
   }
 }
 
-sub _kivitendo_to_datev {
-  @kivitendo_to_datev, ({ kivi_datev_name => 'not yet implemented' }) x (116 - @kivitendo_to_datev);
-}
-
 sub header {
   my ($self) = @_;
 
@@ -561,7 +557,7 @@ sub header {
   push @header, [ @header_row_1 ];
 
   # second header row, just the column names
-  push @header, [ map { $_->{csv_header_name} } _kivitendo_to_datev() ];
+  push @header, [ map { $_->{csv_header_name} } @kivitendo_to_datev ];
 
   return \@header;
 }
@@ -570,7 +566,6 @@ sub lines {
   my ($self) = @_;
 
   my (@array_of_datev, @warnings);
-  my @csv_columns = _kivitendo_to_datev();
 
   foreach my $row (@{ $self->datev_lines }) {
     my @current_datev_row;
@@ -578,7 +573,7 @@ sub lines {
     # 1. check all datev_lines and see if we have a defined value
     # 2. if we don't have a defined value set a default if exists
     # 3. otherwise die
-    foreach my $column (@csv_columns) {
+    foreach my $column (@kivitendo_to_datev) {
       if ($column->{kivi_datev_name} eq 'not yet implemented') {
         push @current_datev_row, '';
         next;