Lines 23-29
use Carp qw( croak );
Link Here
|
23 |
use C4::Context; |
23 |
use C4::Context; |
24 |
use C4::Members::Messaging; |
24 |
use C4::Members::Messaging; |
25 |
use C4::Auth qw( checkpw_internal ); |
25 |
use C4::Auth qw( checkpw_internal ); |
26 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter ); |
26 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); |
27 |
use Koha::Patrons; |
27 |
use Koha::Patrons; |
28 |
use Koha::AuthUtils qw( hash_password ); |
28 |
use Koha::AuthUtils qw( hash_password ); |
29 |
use Net::LDAP; |
29 |
use Net::LDAP; |
Lines 239-247
sub checkpw_ldap {
Link Here
|
239 |
my $letter = GetPreparedLetter( |
239 |
my $letter = GetPreparedLetter( |
240 |
module => 'members', |
240 |
module => 'members', |
241 |
letter_code => 'WELCOME', |
241 |
letter_code => 'WELCOME', |
242 |
branchcode => $patron->branchcode,, |
242 |
branchcode => $patron->branchcode, |
243 |
lang => $patron->lang || 'default', |
243 |
, |
244 |
tables => { |
244 |
lang => $patron->lang || 'default', |
|
|
245 |
tables => { |
245 |
'branches' => $patron->branchcode, |
246 |
'branches' => $patron->branchcode, |
246 |
'borrowers' => $patron->borrowernumber, |
247 |
'borrowers' => $patron->borrowernumber, |
247 |
}, |
248 |
}, |
Lines 256-261
sub checkpw_ldap {
Link Here
|
256 |
message_transport_type => 'email' |
257 |
message_transport_type => 'email' |
257 |
} |
258 |
} |
258 |
); |
259 |
); |
|
|
260 |
SendQueuedMessages( { message_id => $message_id } ); |
259 |
}; |
261 |
}; |
260 |
} |
262 |
} |
261 |
} |
263 |
} |