View | Details | Raw Unified | Return to bug 13107
Collapse All | Expand All

(-)a/opac/opac-user.pl (-2 / +2 lines)
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
- 

Return to bug 13107