Verknüpfung zum E-Mail-Journal für Mahnungen.

diff --git a/SL/DN.pm b/SL/DN.pm
index 1a615011fd17bbda6b27dec17eb49c143f93b8e1..bd002ad65e37063af0b01cf09b38e695ac8f5834 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -505,6 +505,11 @@ sub send_email {
     $mail->{attachments} = $form->{DUNNING_PDFS_EMAIL};
   }
 
     $mail->{attachments} = $form->{DUNNING_PDFS_EMAIL};
   }
 

+  $query  = qq|SELECT id FROM dunning WHERE dunning_id = ?|;
+  my @ids = selectall_array_query($form, $dbh, $query, $dunning_id);
+  $mail->{record_id}   = \@ids;
+  $mail->{record_type} = 'dunning';
+

   $mail->send();
 
   $main::lxdebug->leave_sub();
   $mail->send();
 
   $main::lxdebug->leave_sub();

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 959416861ebccc8648117611b8cf83e0f5fa4685..a408b03b946518f7dcb9df4260b3e0983c5ebb18 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -57,6 +57,7 @@ my %type_to_table = (
   letter                  => 'letter',
   purchase_delivery_order => 'delivery_orders',
   sales_delivery_order    => 'delivery_orders',
   letter                  => 'letter',
   purchase_delivery_order => 'delivery_orders',
   sales_delivery_order    => 'delivery_orders',

+  dunning                 => 'dunning',

 );
 
 sub new {
 );
 
 sub new {


@@ -421,6 +422,9 @@ Mail can be sent from kivitendo via the sendmail command or the smtp protocol.
 
   If $self->{journalentry} and either $self->{record_id} or $::form->{id} (checked in
   this order) exist a record link from record to email journal is created.
 
   If $self->{journalentry} and either $self->{record_id} or $::form->{id} (checked in
   this order) exist a record link from record to email journal is created.

+  It is possible to provide an array reference with more than one id in
+  $self->{record_id} or $::form->{id}. In this case all records are linked to
+  the mail.

   Will fail silently if record_link creation wasn't successful (same behaviour as
   _store_in_journal).
 
   Will fail silently if record_link creation wasn't successful (same behaviour as
   _store_in_journal).