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