[Koha-patches] [PATCH] Bug 3619 - C4::Letters::_send_message_by_email does not obey AutoEmailPrimaryAddress

[J. David Bavousett]

This enhancement would cause C4::Letters::_send_message_by_email to obey the
syspref.
---
 C4/Letters.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 533dcb5..a102acf 100644
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -780,7 +780,9 @@ sub _send_message_by_email ($) {
                                    status     => 'failed' } );
             return;
         }
-        unless ($to_address = $member->{email}) {   # assigment, not comparison
+        my $which_address = C4::Context->preference('AutoEmailPrimaryAddress');
+        $to_address = $member->{$which_address};
+        unless ($to_address) {  
             # warn "FAIL: No 'to_address' and no email for " . ($member->{surname} ||'') . ", borrowernumber ($message->{borrowernumber})";
             # warning too verbose for this more common case?
             _set_message_status( { message_id => $message->{'message_id'},
-- 
1.5.6.5