Lines 40-46
use C4::Reserves;
Link Here
|
40 |
use C4::Context; |
40 |
use C4::Context; |
41 |
use CGI::Session; |
41 |
use CGI::Session; |
42 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
42 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
43 |
use Koha::Borrower::Debarments qw(GetDebarments); |
43 |
use Koha::Borrower::Debarments qw(GetDebarments IsDebarred); |
44 |
use Koha::DateUtils; |
44 |
use Koha::DateUtils; |
45 |
|
45 |
|
46 |
use Date::Calc qw( |
46 |
use Date::Calc qw( |
Lines 265-276
if ($borrowernumber) {
Link Here
|
265 |
finetotal => $fines |
265 |
finetotal => $fines |
266 |
); |
266 |
); |
267 |
|
267 |
|
268 |
$template->param( |
268 |
if ( IsDebarred($borrowernumber) ) { |
269 |
'userdebarred' => $borrower->{debarred}, |
269 |
$template->param( |
270 |
'debarredcomment' => $borrower->{debarredcomment}, |
270 |
'userdebarred' => $borrower->{debarred}, |
271 |
); |
271 |
'debarredcomment' => $borrower->{debarredcomment}, |
272 |
if ( $borrower->{debarred} ne "9999-12-31" ) { |
272 |
); |
273 |
$template->param( 'userdebarreddate' => C4::Dates::format_date( $borrower->{debarred} ) ); |
273 |
|
|
|
274 |
if ( $borrower->{debarred} ne "9999-12-31" ) { |
275 |
$template->param( 'userdebarreddate' => |
276 |
C4::Dates::format_date( $borrower->{debarred} ) ); |
277 |
} |
274 |
} |
278 |
} |
275 |
|
279 |
|
276 |
} |
280 |
} |
277 |
- |
|
|