@@ -, +, @@ --- C4/Auth_with_ldap.pm | 10 ++++++---- C4/Auth_with_shibboleth.pm | 8 ++++---- 2 files changed, 10 insertions(+), 8 deletions(-) --- a/C4/Auth_with_ldap.pm +++ a/C4/Auth_with_ldap.pm @@ -23,7 +23,7 @@ use Carp qw( croak ); use C4::Context; use C4::Members::Messaging; use C4::Auth qw( checkpw_internal ); -use C4::Letters qw( GetPreparedLetter EnqueueLetter ); +use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); use Koha::Patrons; use Koha::AuthUtils qw( hash_password ); use Net::LDAP; @@ -239,9 +239,10 @@ sub checkpw_ldap { my $letter = GetPreparedLetter( module => 'members', letter_code => 'WELCOME', - branchcode => $patron->branchcode,, - lang => $patron->lang || 'default', - tables => { + branchcode => $patron->branchcode, + , + lang => $patron->lang || 'default', + tables => { 'branches' => $patron->branchcode, 'borrowers' => $patron->borrowernumber, }, @@ -256,6 +257,7 @@ sub checkpw_ldap { message_transport_type => 'email' } ); + SendQueuedMessages( { message_id => $message_id } ); }; } } --- a/C4/Auth_with_shibboleth.pm +++ a/C4/Auth_with_shibboleth.pm @@ -23,7 +23,7 @@ use C4::Context; use Koha::AuthUtils qw( get_script_name ); use Koha::Database; use Koha::Patrons; -use C4::Letters qw( GetPreparedLetter EnqueueLetter ); +use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); use C4::Members::Messaging; use Carp qw( carp ); use List::MoreUtils qw( any ); @@ -153,9 +153,8 @@ sub _autocreate { module => 'members', letter_code => 'WELCOME', branchcode => $patron->branchcode, - , - lang => $patron->lang || 'default', - tables => { + lang => $patron->lang || 'default', + tables => { 'branches' => $patron->branchcode, 'borrowers' => $patron->borrowernumber, }, @@ -170,6 +169,7 @@ sub _autocreate { message_transport_type => 'email' } ); + SendQueuedMessages( { message_id => $message_id } ); }; } } --