projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a8fb17e
)
DATEV-Struktur params und lib
author
Jan Büren
<jan@kivitendo-premium.de>
Thu, 19 Oct 2017 10:00:16 +0000
(12:00 +0200)
committer
Jan Büren
<jan@kivitendo-premium.de>
Mon, 30 Oct 2017 14:11:20 +0000
(15:11 +0100)
SL/DATEV/CSV.pm
patch
|
blob
|
history
diff --git
a/SL/DATEV/CSV.pm
b/SL/DATEV/CSV.pm
index
4dfa06b
..
24e9fd2
100644
(file)
--- a/
SL/DATEV/CSV.pm
+++ b/
SL/DATEV/CSV.pm
@@
-7,6
+7,7
@@
use SL::DB::Datev;
use Carp;
use DateTime;
use Carp;
use DateTime;
+use Encode qw(decode);
my @kivitendo_to_datev = (
my @kivitendo_to_datev = (
@@
-205,9
+206,7
@@
my @kivitendo_to_datev = (
);
sub check_encoding {
);
sub check_encoding {
- use Encode qw( decode );
- # counter test: arabic doesnt work: ݐ
- my $test = shift;
+ my ($test) = @_;
return undef unless $test;
if (eval {
decode('Windows-1252', $test, Encode::FB_CROAK|Encode::LEAVE_SRC);
return undef unless $test;
if (eval {
decode('Windows-1252', $test, Encode::FB_CROAK|Encode::LEAVE_SRC);
@@
-218,7
+217,7
@@
sub check_encoding {
}
sub kivitendo_to_datev {
}
sub kivitendo_to_datev {
- my
$self = shift
;
+ my
($self) = @_
;
my $entries = scalar (@kivitendo_to_datev);
push @kivitendo_to_datev, { kivi_datev_name => 'not yet implemented' } for 1 .. (116 - $entries);
my $entries = scalar (@kivitendo_to_datev);
push @kivitendo_to_datev, { kivi_datev_name => 'not yet implemented' } for 1 .. (116 - $entries);
@@
-347,6
+346,7
@@
Line 3 - n: must contain 116 fields, a smaller subset is mandatory.
=item check_encoding
Helper function, returns true if a string is not empty and cp1252 encoded
=item check_encoding
Helper function, returns true if a string is not empty and cp1252 encoded
+For example some arabic utf-8 like ݐ will return false
=item generate_csv_header(from => 'YYYYDDMM', to => 'YYYYDDMM', locked => 0,
first_day_of_fiscal_year => 'YYYYDDMM')
=item generate_csv_header(from => 'YYYYDDMM', to => 'YYYYDDMM', locked => 0,
first_day_of_fiscal_year => 'YYYYDDMM')