|
Lines 35-40
use C4::Items;
Link Here
|
| 35 |
use C4::Letters; |
35 |
use C4::Letters; |
| 36 |
use C4::Branch; # GetBranches |
36 |
use C4::Branch; # GetBranches |
| 37 |
use Koha::DateUtils; |
37 |
use Koha::DateUtils; |
|
|
38 |
use Koha::Borrower::Debarments qw(IsDebarred); |
| 38 |
|
39 |
|
| 39 |
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; |
40 |
use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE'; |
| 40 |
|
41 |
|
|
Lines 84-90
my ($warning_year, $warning_month, $warning_day) = split /-/, $borr->{'dateexpir
Link Here
|
| 84 |
|
85 |
|
| 85 |
$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); |
86 |
$borr->{'ethnicity'} = fixEthnicity( $borr->{'ethnicity'} ); |
| 86 |
|
87 |
|
| 87 |
my $debar = $borr->{'debarred'}; |
88 |
my $debar = IsDebarred($borrowernumber); |
| 88 |
my $userdebarred; |
89 |
my $userdebarred; |
| 89 |
|
90 |
|
| 90 |
if ($debar) { |
91 |
if ($debar) { |
| 91 |
- |
|
|