|
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 |
} |