X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b65a230d60e86d2c18a3ab7222379905aea5ecd7..42ea98b4:/bin/mozilla/datev.pl
diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl
index 9f758b0e4..d35225204 100644
--- a/bin/mozilla/datev.pl
+++ b/bin/mozilla/datev.pl
@@ -363,6 +363,8 @@ sub export3 {
print(qq|
| . $locale->text('KNE-Export erfolgreich!') . qq|
Download|);
+ print $form->parse_html_template('datev/net_gross_difference') if @{ $form->{net_gross_differences} };
+
} else {
$form->error("KNE-Export schlug fehl.");
}
@@ -419,11 +421,13 @@ sub download {
chdir($cwd);
open(IN, $tmp_name) || die("open $tmp_name");
- print("Content-Type: application/zip\n");
- print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
- while () {
- print($_);
- }
+ $::locale->with_raw_io(\*STDOUT, sub {
+ print("Content-Type: application/zip\n");
+ print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
+ while () {
+ print($_);
+ }
+ });
close(IN);
unlink($tmp_name);