From 15a8545085842e1c922ebbe4b50cb23fd02b4040 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Mon, 12 Nov 2018 11:01:16 +0100 Subject: [PATCH] =?utf8?q?DATEV::CSV=20undef=20ist=20kein=20g=C3=BCltiger?= =?utf8?q?=20Wert=20f=C3=BCr=20den=20DATEV-Export?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit fixt den Fehler beim Testfall --- SL/DATEV/CSV.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DATEV/CSV.pm b/SL/DATEV/CSV.pm index a4585de26..1f31f169b 100644 --- a/SL/DATEV/CSV.pm +++ b/SL/DATEV/CSV.pm @@ -113,7 +113,7 @@ my @kivitendo_to_datev = ( type => 'Text', default => '', input_check => sub { my ($check) = @_; return 1 unless $check; return (ref (DateTime->from_kivitendo($check)) eq 'DateTime') }, - formatter => sub { my ($input) = @_; return undef unless $input; return trim(DateTime->from_kivitendo($input)->strftime('%e%m%y')) }, + formatter => sub { my ($input) = @_; return '' unless $input; return trim(DateTime->from_kivitendo($input)->strftime('%e%m%y')) }, valid_check => sub { my ($check) = @_; return 1 unless $check; return ($check =~ m/^[0-9]{5,6}$/) }, }, { -- 2.20.1