|
Lines 574-586
END_SQL
Link Here
|
| 574 |
next; |
574 |
next; |
| 575 |
} |
575 |
} |
| 576 |
$borrowernumber = $data->{'borrowernumber'}; |
576 |
$borrowernumber = $data->{'borrowernumber'}; |
| 577 |
my $borr = |
577 |
|
| 578 |
$data->{'firstname'} . ', ' |
578 |
my $borr; |
| 579 |
. $data->{'surname'} . ' (' |
579 |
if ($data->{'surname'} && $data->{'firstname'}) { |
| 580 |
. $borrowernumber . ')'; |
580 |
$borr = |
|
|
581 |
$data->{'firstname'} . ', ' |
| 582 |
. $data->{'surname'} . ' (' |
| 583 |
. $borrowernumber . ')'; |
| 584 |
} elsif ($data->{'surname'}) { |
| 585 |
$borr = |
| 586 |
$data->{'surname'} . ' (' |
| 587 |
. $borrowernumber . ')'; |
| 588 |
} elsif ($data->{'firstname'}) { |
| 589 |
$borr = |
| 590 |
$data->{'firstname'} . ' (' |
| 591 |
. $borrowernumber . ')'; |
| 592 |
} |
| 581 |
$verbose |
593 |
$verbose |
| 582 |
and warn "borrower $borr has items triggering level $i."; |
594 |
and warn "borrower $borr has items triggering level $i."; |
| 583 |
|
595 |
|
| 584 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
596 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 585 |
@emails_to_use = (); |
597 |
@emails_to_use = (); |
| 586 |
my $notice_email = $patron->notice_email_address; |
598 |
my $notice_email = $patron->notice_email_address; |
| 587 |
- |
|
|