|
Lines 575-595
END_SQL
Link Here
|
| 575 |
} |
575 |
} |
| 576 |
$borrowernumber = $data->{'borrowernumber'}; |
576 |
$borrowernumber = $data->{'borrowernumber'}; |
| 577 |
|
577 |
|
| 578 |
my $borr; |
578 |
my $borr = sprintf( "%s%s%s (%s)", |
| 579 |
if ($data->{'surname'} && $data->{'firstname'}) { |
579 |
$data->{'surname'} || '', |
| 580 |
$borr = |
580 |
$data->{'firstname'} && $data->{'surname'} ? ', ' : '', |
| 581 |
$data->{'firstname'} . ', ' |
581 |
$data->{'firstname'} || '', |
| 582 |
. $data->{'surname'} . ' (' |
582 |
$borrowernumber ); |
| 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 |
} |
| 593 |
$verbose |
583 |
$verbose |
| 594 |
and warn "borrower $borr has items triggering level $i."; |
584 |
and warn "borrower $borr has items triggering level $i."; |
| 595 |
|
585 |
|
| 596 |
- |
|
|