SuSa - vergessene Hidden für department_id

[mfinanz.git] / SL / BackgroundJob / CreatePeriodicInvoices.pm

diff --git a/SL/BackgroundJob/CreatePeriodicInvoices.pm b/SL/BackgroundJob/CreatePeriodicInvoices.pm
index 851bf3ff26b7a0ca70b96c4deb5917e551830b65..b7b3e3305d87971c36386f2d353000542c435b5e 100644 (file)
--- a/SL/BackgroundJob/CreatePeriodicInvoices.pm
+++ b/SL/BackgroundJob/CreatePeriodicInvoices.pm
@@ -400,10 +400,15 @@ sub _email_invoice {
       );
     }
 
       );
     }
 

+    my $global_bcc = SL::DB::Default->get->global_bcc;
+

     for my $recipient (@recipients) {
       my $mail             = Mailer->new;
     for my $recipient (@recipients) {
       my $mail             = Mailer->new;

+      $mail->{record_id}   = $data->{invoice}->id,
+      $mail->{record_type} = 'invoice',

       $mail->{from}        = $data->{config}->email_sender || $::lx_office_conf{periodic_invoices}->{email_from};
       $mail->{to}          = $recipient;
       $mail->{from}        = $data->{config}->email_sender || $::lx_office_conf{periodic_invoices}->{email_from};
       $mail->{to}          = $recipient;

+      $mail->{bcc}         = $global_bcc;

       $mail->{subject}     = $data->{config}->email_subject;
       $mail->{message}     = $data->{config}->email_body;
       $mail->{attachments} = [{
       $mail->{subject}     = $data->{config}->email_subject;
       $mail->{message}     = $data->{config}->email_body;
       $mail->{attachments} = [{