Revision eee33fab
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 603 | 603 |
|
| 604 | 604 |
my $xml = $sepa_xml->to_xml(); |
| 605 | 605 |
|
| 606 |
my $file_extension = $::instance_conf->get_sepa_export_xml ? '.xml' |
|
| 607 |
: $vc eq 'customer' ? '.cdd' |
|
| 608 |
: $vc eq 'vendor' ? '.cct' |
|
| 609 |
: undef; |
|
| 610 |
|
|
| 611 |
die "invalid state for vendor/customer suffix" unless $file_extension; |
|
| 612 |
|
|
| 606 | 613 |
print $cgi->header('-type' => 'application/octet-stream',
|
| 607 |
'-content-disposition' => 'attachment; filename="SEPA_' . $message_id . ($vc eq 'customer' ? '.cdd' : '.cct') . '"',
|
|
| 614 |
'-content-disposition' => 'attachment; filename="SEPA_' . $message_id . $file_extension . '"',
|
|
| 608 | 615 |
'-content-length' => length $xml); |
| 609 | 616 |
print $xml; |
| 610 | 617 |
|
Auch abrufbar als: Unified diff
Logikänderungen für SEPA-Endung und UI-Tab für Proposals