Revision 2cca9fb0
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 36 | 36 |
use SL::DB; |
| 37 | 37 |
use SL::HTML::Util (); |
| 38 | 38 |
use SL::Locale::String qw(t8); |
| 39 |
use SL::Iconv qw(convert); |
|
| 40 | 39 |
|
| 41 | 40 |
use Data::Dumper; |
| 42 | 41 |
use DateTime; |
| ... | ... | |
| 1369 | 1368 |
foreach my $row ( @datev_lines ) {
|
| 1370 | 1369 |
my @current_datev_row; |
| 1371 | 1370 |
|
| 1372 |
# format transformation |
|
| 1373 |
foreach (qw(belegfeld1 kost1 kost2)) {
|
|
| 1374 |
$row->{$_} = SL::Iconv::convert("UTF-8", "CP1252", $row->{$_}) if $row->{$_};
|
|
| 1375 |
} |
|
| 1376 | 1371 |
# shorten strings |
| 1377 | 1372 |
if ($row->{belegfeld1}) {
|
| 1378 | 1373 |
$row->{buchungsbes} = $row->{belegfeld1} if $row->{belegfeld1};
|
Auch abrufbar als: Unified diff
DATEV: Kein explizites Iconv für Feldwerte
Perl ist intelligent genug, die Kodierung
umzubiegen, sobald die Daten extern (filehandle)
die Perl-Umgebung wieder verlassen.