From 074efa8dcef381f6667bffda0c3ae82aba70df0b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= <f.demians@tamil.fr>
Date: Fri, 8 Jan 2010 23:04:16 +0100
Subject: [PATCH] Overdue Notices: Add a Bcc to messages

If a global syspref OverdueNoticeBcc is present, send overdue notices to
this address. This allow a library to track and gather all outgoing
overdue notices.
---
 C4/Letters.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C4/Letters.pm b/C4/Letters.pm
index e3a30d598e..72f4f54d6d 100644
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -800,6 +800,9 @@ sub _send_message_by_email ($) {
         Message => $content,
         'content-type' => $message->{'content_type'} || 'text/plain; charset="UTF-8"',
     );
+    if ( my $bcc = C4::Context->preference('OverdueNoticeBcc') ) {
+       $sendmail_params{ Bcc } = $bcc;
+    }
     
     my $success = sendmail( %sendmail_params );
 
-- 
2.39.2