From d5642bca93358e2693f3bce7aec5555114fcbe6b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Wed, 8 Sep 2021 08:40:54 +0200 Subject: [PATCH] PPI: Auch escapte DTVF Namen erkennen MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Scheinbar kann die Kopfzeile des CSV-Format noch Hochkommatas enthalten oder ggf. wurde diese mit einer Tabellenkalkulation geöffnet. --- SL/Controller/PayPostingImport.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/Controller/PayPostingImport.pm b/SL/Controller/PayPostingImport.pm index 03a44d0bb..5b49a6cb7 100644 --- a/SL/Controller/PayPostingImport.pm +++ b/SL/Controller/PayPostingImport.pm @@ -28,7 +28,7 @@ sub action_import_datev_pay_postings { my $filename= $::form->{ATTACHMENTS}{file}{filename}; # check name and first fields of CSV data die t8("Wrong file name, expects name like: DTVF_*_LOHNBUCHUNG*.csv") unless $filename =~ /^DTVF_.*_LOHNBUCHUNGEN_LUG.*\.csv$/; - die t8("not a valid DTVF file, expected first field in A1 'DTVF'") unless ($::form->{file} =~ m/^"DTVF";/); + die t8("not a valid DTVF file, expected first field in A1 'DTVF': ") unless ($::form->{file} =~ m/^('|")?DTVF/); die t8("not a valid DTVF file, expected field header start with 'Umsatz; (..) ;Konto;Gegenkonto'") unless ($::form->{file} =~ m/Umsatz;S\/H;;;;;Konto;Gegenkonto.*;;Belegdatum;Belegfeld 1;Belegfeld 2;;Buchungstext/); -- 2.20.1