Revision cf5fa654
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
| 263 | 263 |
} |
| 264 | 264 |
|
| 265 | 265 |
sub _kivitendo_to_datev {
|
| 266 |
my ($self) = @_; |
|
| 267 |
|
|
| 268 |
my $entries = scalar (@kivitendo_to_datev); |
|
| 269 |
push @kivitendo_to_datev, { kivi_datev_name => 'not yet implemented' } for 1 .. (116 - $entries);
|
|
| 270 |
return @kivitendo_to_datev; |
|
| 266 |
@kivitendo_to_datev, ({ kivi_datev_name => 'not yet implemented' }) x (116 - @kivitendo_to_datev);
|
|
| 271 | 267 |
} |
| 272 | 268 |
|
| 273 | 269 |
sub header {
|
| ... | ... | |
| 534 | 530 |
|
| 535 | 531 |
=head1 TODO CAVEAT |
| 536 | 532 |
|
| 537 |
|
|
| 538 |
Currently no effort has be done that _kivitenod_to_datev is only intializied once: |
|
| 539 |
Therefore the second call may generate integrity faults: |
|
| 540 |
|
|
| 541 |
my $datev_csv_1 = SL::DATEV::CSV->new(...)->lines; |
|
| 542 |
my $datev_csv_2 = SL::DATEV::CSV->new(...)->lines; |
|
| 543 |
|
|
| 544 |
Secondly one can circumevent the check of the warnings.quite easily, |
|
| 533 |
One can circumevent the check of the warnings.quite easily, |
|
| 545 | 534 |
becaus warnings are generated after the call to lines: |
| 546 | 535 |
|
| 547 | 536 |
# WRONG usage |
Auch abrufbar als: Unified diff
DATEV::CSV: Modifikation von statischen Daten behoben