Revision 97031bd9
Von Steven Schubiger vor fast 3 Jahren hinzugefügt
| SL/Helper/QrBill.pm | ||
|---|---|---|
| 108 | 108 |
|
| 109 | 109 |
sub generate {
|
| 110 | 110 |
my $self = shift; |
| 111 |
my $out_file = defined $_[0] ? $_[0] : $Config{out_file};
|
|
| 111 |
my $out_file = $_[0] // $Config{out_file};
|
|
| 112 | 112 |
|
| 113 | 113 |
$self->{qrcode} = $self->_qrcode();
|
| 114 | 114 |
$self->{cross} = $self->_cross();
|
| ... | ... | |
| 202 | 202 |
\%invoice_recipient_data, |
| 203 | 203 |
\%ref_nr_data, |
| 204 | 204 |
); |
| 205 |
$qr_image->generate($outfile); |
|
| 205 |
$qr_image->generate($out_file);
|
|
| 206 | 206 |
} or do {
|
| 207 | 207 |
local $_ = $@; chomp; my $error = $_; |
| 208 | 208 |
$::form->error($::locale->text('QR-Image generation failed: ' . $error));
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: QrBill.pm: Änderungen Syntax betreffend