Revision a386ea48
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 849 | 849 |
$out = IO::File->new("| $form->{printer_command}");
|
| 850 | 850 |
} |
| 851 | 851 |
|
| 852 |
$::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
|
|
| 853 |
|
|
| 854 | 852 |
$form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
|
| 855 | 853 |
|
| 854 |
$::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
|
|
| 855 |
|
|
| 856 | 856 |
} else {
|
| 857 | 857 |
my $dunning_filename = $form->get_formname_translation('dunning');
|
| 858 | 858 |
print qq|Content-Type: Application/PDF\n| . |
Auch abrufbar als: Unified diff
Mahnungen: PDF an Drucker schicken: Druckbefehl erst prüfen, dann verwenden