print(qq|<br><b>| . $locale->text('KNE-Export erfolgreich!') . qq|</b><br><br><a href="$link">Download</a>|);
+ print $form->parse_html_template('datev/net_gross_difference') if @{ $form->{net_gross_differences} };
+
} else {
$form->error("KNE-Export schlug fehl.");
}
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 (<IN>) {
- print($_);
- }
+ $::locale->with_raw_io(\*STDOUT, sub {
+ print("Content-Type: application/zip\n");
+ print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
+ while (<IN>) {
+ print($_);
+ }
+ });
close(IN);
unlink($tmp_name);