|
Lines 387-393
sub import_patrons {
Link Here
|
| 387 |
if ( $patron->is_debarred ) { |
387 |
if ( $patron->is_debarred ) { |
| 388 |
AddDebarment( |
388 |
AddDebarment( |
| 389 |
{ |
389 |
{ |
| 390 |
borrowernumber => $patron->borrowernumber, |
390 |
borrowernumber => $borrowernumber, |
| 391 |
expiration => $patron->debarred, |
391 |
expiration => $patron->debarred, |
| 392 |
comment => $patron->debarredcomment, |
392 |
comment => $patron->debarredcomment, |
| 393 |
} |
393 |
} |
|
Lines 403-422
sub import_patrons {
Link Here
|
| 403 |
if ($set_messaging_prefs) { |
403 |
if ($set_messaging_prefs) { |
| 404 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
404 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( |
| 405 |
{ |
405 |
{ |
| 406 |
borrowernumber => $patron->borrowernumber, |
406 |
borrowernumber => $borrowernumber, |
| 407 |
categorycode => $patron->categorycode, |
407 |
categorycode => $patron->categorycode, |
| 408 |
} |
408 |
} |
| 409 |
); |
409 |
); |
| 410 |
} |
410 |
} |
| 411 |
|
411 |
|
| 412 |
$imported++; |
412 |
$imported++; |
| 413 |
push @imported_borrowers, $patron->borrowernumber; #for patronlist |
413 |
push @imported_borrowers, $borrowernumber; #for patronlist |
| 414 |
push( |
414 |
push( |
| 415 |
@feedback, |
415 |
@feedback, |
| 416 |
{ |
416 |
{ |
| 417 |
feedback => 1, |
417 |
feedback => 1, |
| 418 |
name => 'lastimported', |
418 |
name => 'lastimported', |
| 419 |
value => $patron->surname . ' / ' . $patron->borrowernumber, |
419 |
value => $patron->surname . ' / ' . $borrowernumber, |
| 420 |
} |
420 |
} |
| 421 |
); |
421 |
); |
| 422 |
}); |
422 |
}); |
|
Lines 461-467
sub import_patrons {
Link Here
|
| 461 |
lang => $patron->lang || 'default', |
461 |
lang => $patron->lang || 'default', |
| 462 |
tables => { |
462 |
tables => { |
| 463 |
'branches' => $patron->branchcode, |
463 |
'branches' => $patron->branchcode, |
| 464 |
'borrowers' => $patron->borrowernumber, |
464 |
'borrowers' => $borrowernumber, |
| 465 |
}, |
465 |
}, |
| 466 |
want_librarian => 1, |
466 |
want_librarian => 1, |
| 467 |
) or return; |
467 |
) or return; |
|
Lines 469-475
sub import_patrons {
Link Here
|
| 469 |
my $message_id = EnqueueLetter( |
469 |
my $message_id = EnqueueLetter( |
| 470 |
{ |
470 |
{ |
| 471 |
letter => $letter, |
471 |
letter => $letter, |
| 472 |
borrowernumber => $patron->id, |
472 |
borrowernumber => $borrowernumber, |
| 473 |
to_address => $emailaddr, |
473 |
to_address => $emailaddr, |
| 474 |
message_transport_type => 'email' |
474 |
message_transport_type => 'email' |
| 475 |
} |
475 |
} |
| 476 |
- |
|
|