Revision 5142ae5c
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/BackgroundJob/CreatePeriodicInvoices.pm | ||
|---|---|---|
| 58 | 58 |
} |
| 59 | 59 |
} |
| 60 | 60 |
|
| 61 |
map { _print_invoice(@{ $_ }) } @invoices_to_print;
|
|
| 61 |
_print_invoice(@{ $_ }) for @invoices_to_print;
|
|
| 62 | 62 |
|
| 63 | 63 |
_send_email(\@new_invoices, [ map { $_->[0] } @invoices_to_print ]) if @new_invoices;
|
| 64 | 64 |
|
| ... | ... | |
| 154 | 154 |
employee => $order->employee, # new_from sets employee to import user |
| 155 | 155 |
); |
| 156 | 156 |
|
| 157 |
map { _replace_vars($invoice, $time_period_vars, $_) } qw(notes intnotes transaction_description);
|
|
| 157 |
_replace_vars($invoice, $time_period_vars, $_) for qw(notes intnotes transaction_description);
|
|
| 158 | 158 |
|
| 159 | 159 |
foreach my $item (@{ $invoice->items }) {
|
| 160 |
map { _replace_vars($item, $time_period_vars, $_) } qw(description longdescription);
|
|
| 160 |
_replace_vars($item, $time_period_vars, $_) for qw(description longdescription);
|
|
| 161 | 161 |
} |
| 162 | 162 |
|
| 163 | 163 |
$invoice->post(ar_id => $config->ar_chart_id) || die; |
Auch abrufbar als: Unified diff
CreatePeriodicInvoices-Job: for anstelle von map für reine Nebeneffekt-Schleifen